]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/ground_2/steps/rtc_ist.ma
update in ground_2 and basic_2
[helm.git] / matita / matita / contribs / lambdadelta / ground_2 / steps / rtc_ist.ma
index 6b9b64681e4372887e234a10d5ac16ba21fae63a..4b4c8ac8fcf4d8812f2e38a6b9bb899ca4e08cc6 100644 (file)
@@ -41,6 +41,10 @@ lemma ist_inv_01: āˆ€n. š“ā¦ƒn,šŸ˜šŸ™ā¦„ ā†’ 1 = n.
 #n #H destruct //
 qed-.
 
+lemma ist_inv_10: āˆ€n. š“ā¦ƒn,šŸ™šŸ˜ā¦„ ā†’ āŠ„.
+#h #H destruct
+qed-.
+
 (* Main inversion properties ************************************************)
 
 theorem ist_inj: āˆ€n1,n2,c. š“ā¦ƒn1,cā¦„ ā†’ š“ā¦ƒn2,cā¦„ ā†’ n1 = n2.