(**************************************************************************)
include "basic_2/rt_computation/fpbg_fpbs.ma".
-include "basic_2/rt_computation/fsb_feqx.ma".
+include "basic_2/rt_computation/fsb_feqg.ma".
(* STRONGLY NORMALIZING CLOSURES FOR PARALLEL RST-TRANSITION ****************)
#G1 #L1 #T1 #H @(fsb_ind_alt … H) -G1 -L1 -T1
#G1 #L1 #T1 #H1 #IH #G2 #L2 #T2 #H12
elim (fpbs_inv_fpbg … H12) -H12
-[ -IH /2 width=5 by fsb_feqx_trans/
+[ -IH /2 width=9 by fsb_feqg_trans/
| -H1 * /2 width=5 by/
]
qed-.