X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Ftests%2Fapplys.ma;h=a265946132ef64cfbbcc5a04c143e3b079105d75;hb=b2abc81f0b76224f6f4f526feaf1fefd6178ae7d;hp=d9cbc90985de855629fd204ec718f94b091ffba6;hpb=d58cc529245e2d7ced43044947313244f190e054;p=helm.git diff --git a/matita/tests/applys.ma b/matita/tests/applys.ma index d9cbc9098..a26594613 100644 --- a/matita/tests/applys.ma +++ b/matita/tests/applys.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -set "baseuri" "cic:/matita/test/applys". +set "baseuri" "cic:/matita/tests/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.