functor (W : T_for_call-> Toprop.T_with_call