X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Fapplys.ma;h=c929e5be5edf0dbcdd43c83f81acfdaaeb025dca;hb=b63a54790055e05654c03d2aaff604c66995557b;hp=74573177f6b812014bbc096bb6be43d0b42e035c;hpb=16568f4cb52cc6b2acc747fe5aceeb4bfab11191;p=helm.git diff --git a/helm/software/matita/tests/applys.ma b/helm/software/matita/tests/applys.ma index 74573177f..c929e5be5 100644 --- a/helm/software/matita/tests/applys.ma +++ b/helm/software/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. +(* 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.