]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/tests/coercions.ma
auto => auto new everywhere + minor updates to make more tests pass
[helm.git] / helm / software / matita / tests / coercions.ma
index 1d841d16ebc2f3cad7299d9ec30cf9198ffa81c8..8e7582a147113a99b67e93e6bf484fe2865efb26 100644 (file)
@@ -59,10 +59,14 @@ definition double2:
 \def 
   \lambda f:int \to int. \lambda x : pos .f (nat2int (pos2nat x)).
 
+(* This used to test eq_f as a coercion. However, posing both eq_f and sym_eq
+   as coercions made the qed time of some TPTP problems reach infty.
+   Thus eq_f is no longer a coercion (nor is sym_eq).
 theorem coercion_svelta : \forall T,S:Type.\forall f:T \to S.\forall x,y:T.x=y \to f y = f x.
   intros.
   apply ((\lambda h:f y = f x.h) H).
 qed.
+*)
 
 variant pos2nat' : ? \def pos2nat.