Skip to content
Snippets Groups Projects
Commit c3fcec7b authored by Andrei Paskevich's avatar Andrei Paskevich Committed by Guillaume Melquiond
Browse files

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

parent 7fdaad84
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
Showing
with 1 addition and 3 deletions
src/core/dterm.ml
+ 1
− 3
View file @ c3fcec7b
...@@ -204,9 +204,7 @@ let denv_get denv n = Mstr.find_exn (UnboundVar n) n denv ...@@ -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 denv_get_opt denv n = Mstr.find_opt n denv
let dty_of_dterm dt = match dt.dt_dty with let dty_of_dterm dt = Opt.get_def dty_bool dt.dt_dty
| None -> Loc.error ?loc:dt.dt_loc TermExpected
| Some dty -> dty
let denv_empty = Mstr.empty let denv_empty = Mstr.empty
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment