diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-28 20:28:07 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-28 20:28:07 +0200 |
| commit | 8b7c8b2c3350ff349a91d6e8f0902bc47f3d494e (patch) | |
| tree | 84d818e93b1728e1ac93f800d28f592f32df37ac /src/trace/smtCommands.ml | |
| parent | 9f296bd2cfb4a053b8a5233019d4cd2479998da2 (diff) | |
| parent | 64517cd829de743338ee3df7e94ecd262dc51505 (diff) | |
| download | smtcoq-8b7c8b2c3350ff349a91d6e8f0902bc47f3d494e.tar.gz smtcoq-8b7c8b2c3350ff349a91d6e8f0902bc47f3d494e.zip | |
Merge branch 'coq-8.10' of github.com:smtcoq/smtcoq into coq-8.11
Diffstat (limited to 'src/trace/smtCommands.ml')
| -rw-r--r-- | src/trace/smtCommands.ml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/trace/smtCommands.ml b/src/trace/smtCommands.ml index 5b65f5c..f626a96 100644 --- a/src/trace/smtCommands.ml +++ b/src/trace/smtCommands.ml @@ -689,7 +689,7 @@ let gen_rel_name = let of_coq_lemma rt ro ra_quant rf_quant env sigma solver_logic clemma = let warn () = - 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)))); + Structures.warning "Lemma" ("Discarding the following lemma (unsupported): "^(Pp.string_of_ppcmds (Ppconstr.pr_constr_expr Environ.empty_env Evd.empty (Structures.extern_constr clemma)))); None in @@ -714,7 +714,11 @@ let of_coq_lemma rt ro ra_quant rf_quant env sigma solver_logic clemma = let core_smt = match core_f with | Some core_f -> - Some (Form.of_coq (Atom.of_coq ~eqsym:true rt ro ra_quant solver_logic env_lemma sigma) rf_quant core_f) + (try + Some (Form.of_coq (Atom.of_coq ~eqsym:true rt ro ra_quant solver_logic env_lemma sigma) rf_quant core_f) + with + | Atom.UnknownUnderForall -> warn () + ) | None -> None in let forall_args = |