snapshot

[helm.git] / helm / software / matita / tests / paratest.ma

diff --git a/helm/software/matita/tests/paratest.ma b/helm/software/matita/tests/paratest.ma
index 4e87472970ec1ac2afb073d28fd51c2188322a16..de4c4204887a77adb0b93f0158c5b184cfbea107 100644 (file)
--- a/helm/software/matita/tests/paratest.ma
+++ b/helm/software/matita/tests/paratest.ma
@@ -14,5 +14,9 @@
 
 include "nat/plus.ma".
 
-ntheorem foo: \forall x, y. ((λz. x + x = z + z) ?).
-##[ #x; #y; nnormalize; nauto.
\ No newline at end of file
+ntheorem foo:  
+   ((λx.x + 0 = x) ?) → 
+   ((λx,y.x + S y = S (x + y)) ? ?) →
+   ((λx,y.y + x = x + y) ? ?) →
+   ∀x. ((λz. x + x = z + S z) ?). 
+##[ #H; #H1; #H2; #x; nnormalize in H H1 H2 ⊢ %; nauto by H, H1, H2.
\ No newline at end of file