diff options
| author | Pierre-Marie Pédrot | 2020-04-28 16:21:33 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-04-28 16:31:43 +0200 |
| commit | 3ff3c18031317dcd08bf081e55212617b8820647 (patch) | |
| tree | 420126181a1158afda19a649e388e306f41d723c /tactics/eqschemes.ml | |
| parent | 2c04f5df480492169e533c376cc50caff863ba5a (diff) | |
Return an option in lookup_scheme.
Diffstat (limited to 'tactics/eqschemes.ml')
| -rw-r--r-- | tactics/eqschemes.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tactics/eqschemes.ml b/tactics/eqschemes.ml index 000896bfea..7c702eab3a 100644 --- a/tactics/eqschemes.ml +++ b/tactics/eqschemes.ml @@ -248,8 +248,7 @@ let sym_scheme_kind = (**********************************************************************) let const_of_scheme kind env ind ctx = - let () = assert (check_scheme kind ind) in - let sym_scheme = lookup_scheme kind ind in + let sym_scheme = match lookup_scheme kind ind with Some cst -> cst | None -> assert false in let sym, ctx = with_context_set ctx (UnivGen.fresh_constant_instance (Global.env()) sym_scheme) in mkConstU sym, ctx |