...

[helm.git] / helm / software / matita / library / demo / realisability.ma

diff --git a/helm/software/matita/library/demo/realisability.ma b/helm/software/matita/library/demo/realisability.ma
index a0c021273713bc49a5a05f47f830cc892ca33167..0cd58c63dce78b1c70fe0640541c2d405c73621e 100644 (file)
--- a/helm/software/matita/library/demo/realisability.ma
+++ b/helm/software/matita/library/demo/realisability.ma
@@ -106,12 +106,12 @@ theorem correct: ∀F:SP.∀r:type_OF_SP F.modr F r → Prop_OF_SP F.
  intro;
  elim F; simplify;
   [1,2: apply H
-  | split;
+  | split; simplify in r H2; 
      [apply H;
        [ apply (\fst r)
        | apply (proj1 ? ? H2)
        ]
-     | apply H1;
+     | apply H1;simplify in r H2;
        [ apply (\snd r)
        | apply (proj2 ? ? H2)
        ]