-lemma fr2_nat_inv_cons (f) (d) (h) (l1) (l2):
- @â\9dªl1, â\9d¨d,hâ\9d©;fâ\9d« ≘ l2 →
- â\88¨â\88¨ â\88§â\88§ l1 < d & @â\9dªl1, fâ\9d« ≘ l2
- | â\88§â\88§ d â\89¤ l1 & @â\9dªl1+h, fâ\9d« ≘ l2.
-#g #d #h #l1 #l2 @(insert_eq_1 … (❨d, h❩;g))
+lemma fr2_nat_inv_lcons (f) (d) (h) (l1) (l2):
+ @â\9d¨l1, â\9d¨d,hâ\9d©â\97\97fâ\9d© ≘ l2 →
+ â\88¨â\88¨ â\88§â\88§ l1 < d & @â\9d¨l1, fâ\9d© ≘ l2
+ | â\88§â\88§ d â\89¤ l1 & @â\9d¨l1+h, fâ\9d© ≘ l2.
+#g #d #h #l1 #l2 @(insert_eq_1 … (❨d, h❩◗g))