]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/tests/decl.ma
New syntax and semantics for the rewriting steps that make the pretty-printed
[helm.git] / matita / tests / decl.ma
index 138e37e71fbbd941ad9c48559796071d5d7d0135..a9d083b64cc4eea3198120fbe7a5c7453c1b761f 100644 (file)
@@ -129,7 +129,7 @@ assume p:nat.
 suppose (n=m) (H).
 suppose (S m = S p) (K).
 suppose (n = S p) (L).
-obtain (S n) = (S m) by (eq_f ? ? ? ? ? H).
+conclude (S n) = (S m) by (eq_f ? ? ? ? ? H).
              = (S p) by K.
              = n by (sym_eq ? ? ? L)
 done.
@@ -142,7 +142,7 @@ assume p:nat.
 suppose (n=m) (H).
 suppose (S m = S p) (K).
 suppose (n = S p) (L).
-obtain (S n) = (S m) by _.
+conclude (S n) = (S m) by _.
              = (S p) by _.
              = n by _
 done.