]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/contribs/ng_TPTP/COL058-2.ma
tacticals are really tactics now, they have an AST at the same level of
[helm.git] / helm / software / matita / contribs / ng_TPTP / COL058-2.ma
index be4dc09f2cc458743075dbe2a65975dae74ec413..4ebcf330ffa47289ede35f5dd0171fc671535172 100644 (file)
@@ -56,18 +56,18 @@ include "logic/equality.ma".
 
 (* ---- Hypothesis: This bird is egocentric  *)
 ntheorem prove_the_bird_exists:
- ∀Univ:Type.∀X1:Univ.∀X2:Univ.
(∀Univ:Type.∀X1:Univ.∀X2:Univ.
 ∀lark:Univ.
 ∀response:∀_:Univ.∀_:Univ.Univ.
-∀H0:∀X1:Univ.∀X2:Univ.eq Univ (response (response lark X1) X2) (response X1 (response X2 X2)).eq Univ (response (response (response lark (response (response lark (response lark lark)) (response lark (response lark lark)))) (response lark (response lark lark))) (response (response lark (response (response lark (response lark lark)) (response lark (response lark lark)))) (response lark (response lark lark)))) (response (response lark (response (response lark (response lark lark)) (response lark (response lark lark)))) (response lark (response lark lark)))
+∀H0:∀X1:Univ.∀X2:Univ.eq Univ (response (response lark X1) X2) (response X1 (response X2 X2)).eq Univ (response (response (response lark (response (response lark (response lark lark)) (response lark (response lark lark)))) (response lark (response lark lark))) (response (response lark (response (response lark (response lark lark)) (response lark (response lark lark)))) (response lark (response lark lark)))) (response (response lark (response (response lark (response lark lark)) (response lark (response lark lark)))) (response lark (response lark lark))))
 .
-#Univ.
-#X1.
-#X2.
-#lark.
-#response.
-#H0.
-nauto by H0;
+#Univ ##.
+#X1 ##.
+#X2 ##.
+#lark ##.
+#response ##.
+#H0 ##.
+nauto by H0 ##;
 nqed.
 
 (* -------------------------------------------------------------------------- *)