X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fdemo%2Frealisability.ma;h=0cd58c63dce78b1c70fe0640541c2d405c73621e;hb=d2a898e8636c360713d8c9967f1de74e3e077c3f;hp=a0c021273713bc49a5a05f47f830cc892ca33167;hpb=3deaedbac3407f8b4602b885a6405d4e0cc3e955;p=helm.git

diff --git a/helm/software/matita/library/demo/realisability.ma b/helm/software/matita/library/demo/realisability.ma
index a0c021273..0cd58c63d 100644
--- 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)
        ]