arithmetics for λδ

[helm.git] / matita / matita / contribs / lambdadelta / ground / arith / nat_pred.ma

diff --git a/matita/matita/contribs/lambdadelta/ground/arith/nat_pred.ma b/matita/matita/contribs/lambdadelta/ground/arith/nat_pred.ma
index fb196e042ebea1a5bd415272a7cc0aafbb7d39f0..c753d8f72379f0103801615af9cfcc2012aa0ec0 100644 (file)
--- a/matita/matita/contribs/lambdadelta/ground/arith/nat_pred.ma
+++ b/matita/matita/contribs/lambdadelta/ground/arith/nat_pred.ma
@@ -33,3 +33,23 @@ interpretation
 (*** pred_O *)
 lemma npred_zero: 𝟎 = ↓𝟎.
 // qed.
+
+lemma npred_one: 𝟎 = ↓𝟏.
+// qed.
+
+lemma npred_psucc (p): ninj p = ↓↑p.
+// qed.
+
+(* Basic inversions *********************************************************)
+
+lemma npred_pnat_inv_refl (p): ninj p = ↓p → ⊥.
+*
+[ <npred_one #H destruct
+| #p /3 width=2 by psucc_inv_refl, eq_inv_ninj_bi/
+]
+qed-.
+
+(*** pred_inv_fix_sn *)
+lemma npred_inv_refl (n): n = ↓n → 𝟎 = n.
+* // #p #H elim (npred_pnat_inv_refl … H)
+qed-.