instantiate forward < forward-is-refine with backward by mapping COP → [λ i. λ cs, cs0. COP(i)(cs0, cs)]; AOP → [λ i. λ as, as0. AOP(i)(as0, as)]; CPROG → [λ il. λ cs, cs0. CPROG(rev(il))(cs0, cs)]; APROG → [λ il. λ as, as0. APROG(rev(il))(as0, as)]; CSEM → [λ il. λ gs, gs0. CSEM(rev(il))(gs0, gs)]; ASEM → [λ il. λ gs, gs0. ASEM(rev(il))(gs0, gs)]; CINIT → [λ gs, cs. CFIN(cs, gs)]; CFIN → [λ cs, gs. CINIT(gs, cs)]; AINIT → [λ gs, as. AFIN(as, gs)]; AFIN → [λ as, gs. AINIT(gs, as)]; R → [λ as, cs. T(cs, as)]; csem → csem; cinit → cinit; cfin → cfin; cop2 → cop2; cop1 → cop1; cop → cop; asem → asem; ainit → ainit; afin → afin; aop2 → aop2; aop1 → aop1; aop → aop; t2 → t2; t1 → t1; t → t; cfin2 → cfin2; cfin1 → cfin1; ainit2 → ainit2; ainit1 → ainit1; r2 → r2; r1 → r1; r → r; afin2 → afin2; afin1 → afin1; cinit2 → cinit2; cinit1 → cinit1; rename end instantiate