#des #i #i1 #H elim H -des -i -i1
[ #i #x #H <(at_inv_nil … H) -x //
| #des #d #e #i #i1 #Hid #_ #IHi1 #x #H
- lapply (at_inv_cons_lt … H Hid) -H -Hid /2 width=1/
+ lapply (at_inv_cons_lt … H Hid) -H -Hid /2 width=1 by/
| #des #d #e #i #i1 #Hdi #_ #IHi1 #x #H
- lapply (at_inv_cons_ge … H Hdi) -H -Hdi /2 width=1/
+ lapply (at_inv_cons_ge … H Hdi) -H -Hdi /2 width=1 by/
]
qed-.