Dterm: admit formulas in let-in (fixes #19565)

34bb13b9 · Andrei Paskevich · c4820cae · 34bb13b9
Commit 34bb13b9 authored Sep 25, 2015 by Andrei Paskevich
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 3 deletions

src/core/dterm.ml src/core/dterm.ml +1 -3

No files found.
--- a/src/core/dterm.ml
+++ b/src/core/dterm.ml
@@ -204,9 +204,7 @@ let denv_get denv n = Mstr.find_exn (UnboundVar n) n denv

 let denv_get_opt denv n = Mstr.find_opt n denv

-let dty_of_dterm dt = match dt.dt_dty with
-  | None -> Loc.error ?loc:dt.dt_loc TermExpected
-  | Some dty -> dty
+let dty_of_dterm dt = Opt.get_def dty_bool dt.dt_dty

 let denv_empty = Mstr.empty