(* Properties with sort-irrelevant equivalence for closures *****************)
-lemma fsb_feqx_trans: â\88\80h,G1,L1,T1. â\89¥[h] ð\9d\90\92â¦\83G1,L1,T1â¦\84 →
- â\88\80G2,L2,T2. â¦\83G1,L1,T1â¦\84 â\89\9b â¦\83G2,L2,T2â¦\84 â\86\92 â\89¥[h] ð\9d\90\92â¦\83G2,L2,T2â¦\84.
+lemma fsb_feqx_trans: â\88\80h,G1,L1,T1. â\89¥[h] ð\9d\90\92â\9dªG1,L1,T1â\9d« →
+ â\88\80G2,L2,T2. â\9dªG1,L1,T1â\9d« â\89\9b â\9dªG2,L2,T2â\9d« â\86\92 â\89¥[h] ð\9d\90\92â\9dªG2,L2,T2â\9d«.
#h #G1 #L1 #T1 #H @(fsb_ind_alt … H) -G1 -L1 -T1
#G1 #L1 #T1 #_ #IH #G2 #L2 #T2 #H12
@fsb_intro #G #L #T #H2