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