AC
Size: a a a
AC
AG
AC
AC
R
ХГ
AC
AC
AG
case : {-2}_ {-2}_ {-1}_ {-1}_ /ST (erefl (Cpar C1 C2)) (erefl (s, hplus h1 (hplus h2 (hplus hJ hF)))) (erefl c') (erefl ss')=>//.
- move=>????? A DI; case=>E1 E2 EQ E3 _; rewrite E1 EQ in A; rewrite E2 in DI.
rewrite E3 /= E2 envs_app1 // in HS.
rewrite (hplusAC hF) in A; last by apply/hdefC.
exploit H1; first by [exact: A]; try by [].
- by rewrite hdef_hplus2.
- by rewrite hdef_hplus2; split=>//; apply/hdefC.
ХГ
AC
AG
AC
ХГ
AC
AC
AG
move=>>
, но хз, может понадобится потом выкостыливать отдельные аргументыAG
elim=>//= ? IH C1 s h1 ?? [?][AB1][AC1] H1 C2 h2 ? [?][AB2][AC2] H2 /and3P [WF1 WF2 DJ] HD FV1 ?? FV4 FV5 FV6; do!split=>//.
AC
AG