fr2_minus i (𝐞) (𝐞)
(*** minuss_lt *)
| fr2_minus_lt (f1) (f2) (d) (h) (i):
- i < d → fr2_minus i f1 f2 → fr2_minus i (❨d,h❩;f1) (❨d-i,h❩;f2)
+ i < d → fr2_minus i f1 f2 → fr2_minus i (❨d,h❩◗f1) (❨d-i,h❩◗f2)
(*** minuss_ge *)
| fr2_minus_ge (f1) (f2) (d) (h) (i):
- d ≤ i → fr2_minus (h+i) f1 f2 → fr2_minus i (❨d,h❩;f1) f2
+ d ≤ i → fr2_minus (h+i) f1 f2 → fr2_minus i (❨d,h❩◗f1) f2
.
interpretation
(*** minuss_inv_cons1 *)
lemma fr2_minus_inv_lcons_sn (f1) (f2) (d) (h) (i):
- ❨d, h❩;f1 ▭ i ≘ f2 →
+ ❨d, h❩◗f1 ▭ i ≘ f2 →
∨∨ ∧∧ d ≤ i & f1 ▭ h+i ≘ f2
- | ∃∃f. i < d & f1 ▭ i ≘ f & f2 = ❨d-i,h❩;f.
-#g1 #f2 #d #h #i @(insert_eq_1 … (❨d,h❩;g1))
+ | ∃∃f. i < d & f1 ▭ i ≘ f & f2 = ❨d-i,h❩◗f.
+#g1 #f2 #d #h #i @(insert_eq_1 … (❨d,h❩◗g1))
#f1 * -f1 -f2 -i
[ #i #H destruct
| #f1 #f #d1 #h1 #i1 #Hid1 #Hf #H destruct /3 width=3 by ex3_intro, or_intror/
(*** minuss_inv_cons1_ge *)
lemma fr2_minus_inv_lcons_sn_ge (f1) (f2) (d) (h) (i):
- ❨d, h❩;f1 ▭ i ≘ f2 → d ≤ i → f1 ▭ h+i ≘ f2.
+ ❨d, h❩◗f1 ▭ i ≘ f2 → d ≤ i → f1 ▭ h+i ≘ f2.
#f1 #f2 #d #h #i #H
elim (fr2_minus_inv_lcons_sn … H) -H * // #f #Hid #_ #_ #Hdi
elim (nlt_ge_false … Hid Hdi)
(*** minuss_inv_cons1_lt *)
lemma fr2_minus_inv_lcons_sn_lt (f1) (f2) (d) (h) (i):
- ❨d, h❩;f1 ▭ i ≘ f2 → i < d →
- ∃∃f. f1 ▭ i ≘ f & f2 = ❨d-i,h❩;f.
+ ❨d, h❩◗f1 ▭ i ≘ f2 → i < d →
+ ∃∃f. f1 ▭ i ≘ f & f2 = ❨d-i,h❩◗f.
#f1 #f2 #d #h #i #H elim (fr2_minus_inv_lcons_sn … H) -H *
[ #Hdi #_ #Hid elim (nlt_ge_false … Hid Hdi)
| /2 width=3 by ex2_intro/