X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Fapplys.ma;h=fa0d3699851cb60dba3441584e464c0a884e7c8f;hb=e880d6eab5e1700f4a625ddcd7d0fa8f0cce2dcc;hp=d9cbc90985de855629fd204ec718f94b091ffba6;hpb=1c8dc74bf532708b68948e8a1afa73b2fa788718;p=helm.git diff --git a/helm/software/matita/tests/applys.ma b/helm/software/matita/tests/applys.ma index d9cbc9098..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/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.