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
4e9f3eb2
Commit
4e9f3eb2
authored
Aug 26, 2013
by
MARCHE Claude
Browse files
removed t_app_infer_inst from term.ml
parent
b54c8599
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/core/term.ml
View file @
4e9f3eb2
...
...
@@ -721,10 +721,6 @@ let t_app_infer ls tl =
let
s
=
ls_arg_inst
ls
tl
in
t_app
ls
tl
(
oty_inst
s
ls
.
ls_value
)
let
t_app_infer_inst
ls
tl
ty
=
let
s
=
ls_arg_inst
ls
tl
in
t_app
ls
tl
(
oty_inst
s
ty
)
let
t_app
ls
tl
ty
=
ignore
(
ls_app_inst
ls
tl
ty
);
t_app
ls
tl
ty
let
fs_app
fs
tl
ty
=
t_app
fs
tl
(
Some
ty
)
...
...
src/core/term.mli
View file @
4e9f3eb2
...
...
@@ -203,11 +203,6 @@ val t_app_infer : lsymbol -> term list -> term
val
ls_arg_inst
:
lsymbol
->
term
list
->
ty
Mtv
.
t
val
ls_app_inst
:
lsymbol
->
term
list
->
ty
option
->
ty
Mtv
.
t
val
t_app_infer_inst
:
lsymbol
->
term
list
->
ty
option
->
term
(** [t_app_infer_inst ls tl ty] builds the application of
symbol [ls] to arguments [tl], enforcing the result type to
an instance of type [ty] *)
val
t_var
:
vsymbol
->
term
val
t_const
:
Number
.
constant
->
term
val
t_if
:
term
->
term
->
term
->
term
...
...
src/whyml/mlw_interp.ml
View file @
4e9f3eb2
...
...
@@ -3,6 +3,10 @@ open Format
open
Term
let
t_app_infer_inst
ls
tl
ty
=
let
s
=
ls_arg_inst
ls
tl
in
t_app
ls
tl
(
Ty
.
oty_inst
s
ty
)
(* environment *)
open
Mlw_ty
...
...
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