Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
b4390e9e
Commit
b4390e9e
authored
Oct 17, 2014
by
Andrei Paskevich
Browse files
Term: make t_[f|p]_app_beta_l consistent with t_[f|p]_app_l
parent
8527ea1d
Changes
1
Show whitespace changes
Inline
Side-by-side
src/core/term.ml
View file @
b4390e9e
...
...
@@ -1388,11 +1388,10 @@ let t_app_partial ls tl tyl ty =
t_func_app_l
(
t_closure
ls
tyl
ty
)
tl
let
rec
t_app_beta_l
lam
tl
=
if
tl
=
[]
then
lam
else
let
vl
,
trl
,
e
=
t_open_lambda
lam
in
if
vl
=
[]
then
t_func_app_l
lam
tl
else
let
rec
add
m
vl
tl
=
match
vl
,
tl
with
|
[]
,
[]
->
t_subst_unsafe
m
e
|
[]
,
tl
->
t_app_beta_l
(
t_subst_unsafe
m
e
)
tl
|
vl
,
[]
->
...
...
@@ -1403,12 +1402,10 @@ let rec t_app_beta_l lam tl =
add
Mvs
.
empty
vl
tl
let
t_func_app_beta_l
lam
tl
=
if
tl
=
[]
then
lam
else
let
e
=
t_app_beta_l
lam
tl
in
if
e
.
t_ty
=
None
then
t_if
e
t_bool_true
t_bool_false
else
e
let
t_pred_app_beta_l
lam
tl
=
if
tl
=
[]
then
lam
else
let
e
=
t_app_beta_l
lam
tl
in
if
e
.
t_ty
=
None
then
e
else
t_equ
e
t_bool_true
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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