Rewrite.Internalval build_signature : Environ.env -> Evd.evar_map -> EConstr.constr -> (EConstr.types * EConstr.types option) option list -> (EConstr.types * EConstr.types option) option -> Evd.evar_map * EConstr.constr * (EConstr.constr * EConstr.t option) listval build_morphism_signature : Environ.env -> Evd.evar_map -> Constrexpr.constr_expr -> Evd.evar_map * EConstr.tval default_morphism : Environ.env -> Evd.evar_map -> ((EConstr.types * EConstr.types option) option list * (EConstr.types * EConstr.types option) option) -> EConstr.constr -> EConstr.constr * EConstr.t