X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Fapplys.ma;h=fa0d3699851cb60dba3441584e464c0a884e7c8f;hb=b6afef7e73324824025a6d7f313129d55b72cfc6;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..fa0d36998 100644 --- a/helm/software/matita/tests/applys.ma +++ b/helm/software/matita/tests/applys.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -set "baseuri" "cic:/matita/test/". + 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.