Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
34bb13b9
Commit
34bb13b9
authored
Sep 25, 2015
by
Andrei Paskevich
Browse files
Dterm: admit formulas in let-in (fixes #19565)
parent
c4820cae
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/core/dterm.ml
View file @
34bb13b9
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment