functor (W : Toprop.T_for_Cfg-> Toprop.T_for_Cfg