]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/tests/applys.ma
restored is_identity instead of is_weak_identity
[helm.git] / matita / tests / applys.ma
index 74573177f6b812014bbc096bb6be43d0b42e035c..c929e5be5edf0dbcdd43c83f81acfdaaeb025dca 100644 (file)
@@ -12,7 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/test/".
+set "baseuri" "cic:/matita/test/applys".
 
 include "nat/div_and_mod.ma".
 include "nat/factorial.ma".
@@ -30,5 +30,10 @@ qed.
 theorem prova2 :
  \forall n. S n \divides (S n)!.
 intros.
+(* o fare una List.rev quando si fa la make_passives... la tira su, 
+   ma tardi....
+letin www \def sym_times.
+clearbody www.
+*)
 applyS (witness ? ? ? (refl_eq ? ?)).
 qed.