X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Ftests%2Fapplys.ma;h=1115eaf92110ae94f5bbea0d037ee37d19508191;hb=946be00a2b9e1713e934414bd8419f267cca1077;hp=74573177f6b812014bbc096bb6be43d0b42e035c;hpb=1a4e36e57d838a43ab9765a9e9c7a602ae9c0124;p=helm.git diff --git a/matita/tests/applys.ma b/matita/tests/applys.ma index 74573177f..1115eaf92 100644 --- a/matita/tests/applys.ma +++ b/matita/tests/applys.ma @@ -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. +(* se non trova subito sym_times poi si perde! *) +(* alternativamente si puo' abilitare la are_convertible nella + is_identity, ma poi va peggio nel resto (conv lunghe) *) +letin www \def sym_times. +clearbody www. applyS (witness ? ? ? (refl_eq ? ?)). qed.