Commit 34bb13b9 authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

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

parent c4820cae
......@@ -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
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment