diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-21 13:20:05 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-21 13:20:05 +0200 |
| commit | a2909f58811408f60febda00c3070d7c5bf7a8f6 (patch) | |
| tree | 6fb026756c3973fec8babbaa624ab2386775cda4 | |
| parent | f5db7098fae39f584550ed5dd03cac34dc24be67 (diff) | |
| download | smtcoq-a2909f58811408f60febda00c3070d7c5bf7a8f6.tar.gz smtcoq-a2909f58811408f60febda00c3070d7c5bf7a8f6.zip | |
Port to 8.10
| -rw-r--r-- | src/trace/smtCommands.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/trace/smtCommands.ml b/src/trace/smtCommands.ml index 0c53b05..bc1aabb 100644 --- a/src/trace/smtCommands.ml +++ b/src/trace/smtCommands.ml @@ -686,7 +686,7 @@ let of_coq_lemma rt ro ra_quant rf_quant env sigma solver_logic clemma = let rt_copy = SmtBtype.copy rt in let warn () = - Structures.warning "Lemma" ("Discarding the following lemma (axiom form unsupported): "^(Pp.string_of_ppcmds (Ppconstr.pr_constr_expr (Structures.extern_constr clemma)))); + Structures.warning "Lemma" ("Discarding the following lemma (axiom form unsupported): "^(Pp.string_of_ppcmds (Ppconstr.pr_constr_expr Environ.empty_env Evd.empty (Structures.extern_constr clemma)))); None in |