From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Tue, 8 Apr 2008 09:11:33 +0000 (+0000)
Subject: added simplify to avoid ugly proofterm
X-Git-Tag: make_still_working~5410
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=27bfea6a5157027d01f57b12ecacdd507b569864;p=helm.git

added simplify to avoid ugly proofterm
---

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)
        ]