set (HomFunctor s0 K) as a in *.
set (reification_rstar_f X) as a' in *.
set (reification_rstar_f X0) as x in *.
set (reification_r X K) as b in *.
set (HomFunctor s0 K) as a in *.
set (reification_rstar_f X) as a' in *.
set (reification_rstar_f X0) as x in *.
set (reification_r X K) as b in *.