]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/tests/elim.ma
just a Pcre expression fixed, nothing real
[helm.git] / matita / tests / elim.ma
index d6a4c3f33f7e994f362100e40ec391b0702ce569..dbcd0930b9f5c351ddaff68408416bf276cb193f 100644 (file)
@@ -13,7 +13,7 @@
 (**************************************************************************)
 
 set "baseuri" "cic:/matita/tests/elim".
-include "legacy/coq.ma".
+include "../legacy/coq.ma".
 
 inductive stupidtype: Set \def
   | Base : stupidtype
@@ -72,7 +72,6 @@ theorem t': \forall x,y. \forall H: sum x y O.
     (\lambda a,b,K. y=a \to O=b \to
         match K with [ (k a b p) \Rightarrow a ] = x)
      ? ? ? H).
- goal 16.
  simplify. intros.
  generalize in match H1.
  rewrite < H2; rewrite < H3.intro.