diff --git a/src/coq_elpi_builtins.ml b/src/coq_elpi_builtins.ml index 8e3dc692f..30cbebf50 100644 --- a/src/coq_elpi_builtins.ml +++ b/src/coq_elpi_builtins.ml @@ -579,7 +579,7 @@ let preprocess_clause ~depth clause = E.mkLam (subst ~depth:(depth+1) m x) | E.Builtin(c,xs) -> E.mkBuiltin c (List.map (subst ~depth m) xs) - | E.UnifVar _ -> assert false + | E.UnifVar _ -> CErrors.error Pp.(str"The clause begin accumulated contains unification variables, this is forbidden. You must quantify them out using 'pi'.") | E.Const _ | E.Nil | E.CData _ -> t in let clause =