#h #n #A #G #L #T1 #HT1
elim (cpms_total_aaa h … n … HT1) #T0 #HT10
elim (cprre_total_csx h G L T0)
[ #T2 /3 width=4 by cpms_cprre_trans, ex_intro/
#h #n #A #G #L #T1 #HT1
elim (cpms_total_aaa h … n … HT1) #T0 #HT10
elim (cprre_total_csx h G L T0)
[ #T2 /3 width=4 by cpms_cprre_trans, ex_intro/