(*** coafter_inv_tl1 *)
lemma gr_coafter_inv_tl_dx:
- â\88\80g2,g1,g. g2 ~â\8a\9a ⫱g1 ≘ g →
- â\88\83â\88\83f. ⫯g2 ~â\8a\9a g1 â\89\98 f & ⫱f = g.
+ â\88\80g2,g1,g. g2 ~â\8a\9a â«°g1 ≘ g →
+ â\88\83â\88\83f. ⫯g2 ~â\8a\9a g1 â\89\98 f & â«°f = g.
#g2 #g1 #g
elim (gr_map_split_tl g1) #H1 #H2
[ /3 width=7 by gr_coafter_refl, ex2_intro/
(*** coafter_inv_tl0 *)
lemma gr_coafter_inv_tl:
- â\88\80g2,g1,g. g2 ~â\8a\9a g1 â\89\98 ⫱g →
- â\88\83â\88\83f1. ⫯g2 ~â\8a\9a f1 â\89\98 g & ⫱f1 = g1.
+ â\88\80g2,g1,g. g2 ~â\8a\9a g1 â\89\98 â«°g →
+ â\88\83â\88\83f1. ⫯g2 ~â\8a\9a f1 â\89\98 g & â«°f1 = g1.
#g2 #g1 #g
elim (gr_map_split_tl g) #H1 #H2
[ /3 width=7 by gr_coafter_refl, ex2_intro/