diff --git a/src/coq_elpi_builtins.ml b/src/coq_elpi_builtins.ml index ef01f79a2..99a0b0ef9 100644 --- a/src/coq_elpi_builtins.ml +++ b/src/coq_elpi_builtins.ml @@ -2923,7 +2923,7 @@ Supported attributes: { nenv with Notation_term.ninterp_var_type = Id.Map.add id (Notation_term.NtnInternTypeAny None) nenv.Notation_term.ninterp_var_type }, - (id, ((Constrexpr.(InConstrEntry,(LevelSome,None)),([],[])),Notation_term.NtnTypeConstr)) :: vars in + (id, ((Notation_ops.constr_some_level,([],[])),Notation_term.NtnTypeConstr)) :: vars in let env = EConstr.push_rel (Context.Rel.Declaration.LocalAssum(name,ty)) env in aux vars nenv env (n-1) t | _ ->