(* Inversion lemmas with simple terms ***************************************)
lemma cpx_inv_appl1_simple (G) (L):
- â\88\80V1,T1,U. â\9dªG,Lâ\9d« â\8a¢ â\93\90V1.T1 â¬\88 U â\86\92 ð\9d\90\92â\9dªT1â\9d« →
- â\88\83â\88\83V2,T2. â\9dªG,Lâ\9d« â\8a¢ V1 â¬\88 V2 & â\9dªG,Lâ\9d« ⊢ T1 ⬈ T2 & U = ⓐV2.T2.
+ â\88\80V1,T1,U. â\9d¨G,Lâ\9d© â\8a¢ â\93\90V1.T1 â¬\88 U â\86\92 ð\9d\90\92â\9d¨T1â\9d© →
+ â\88\83â\88\83V2,T2. â\9d¨G,Lâ\9d© â\8a¢ V1 â¬\88 V2 & â\9d¨G,Lâ\9d© ⊢ T1 ⬈ T2 & U = ⓐV2.T2.
#G #L #V1 #T1 #U * #c #H #HT1 elim (cpg_inv_appl1_simple … H) -H
/3 width=5 by ex3_2_intro, ex_intro/
qed-.