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
94f3ba6a
Commit
94f3ba6a
authored
Jan 21, 2011
by
Andrei Paskevich
Browse files
partly revert
b6878d8d
, abstraction isn't costly anymore
parent
19f83f49
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/programs/pgm_wp.ml
View file @
94f3ba6a
...
...
@@ -60,7 +60,10 @@ let is_arrow_ty ty = match ty.ty_node with
|
_
->
false
let
wp_forall
v
f
=
if
is_arrow_ty
v
.
vs_ty
then
f
else
match
f
.
f_node
with
if
is_arrow_ty
v
.
vs_ty
then
f
else
if
f_occurs_single
v
f
then
f_forall_close_simp
[
v
]
[]
f
else
f
(*
match f.f_node with
| Fbinop (Fimplies, {f_node = Fapp (s,[{t_node = Tvar u};r])},h)
when ls_equal s ps_equ && vs_equal u v && not (t_occurs_single v r) ->
f_subst_single v r h
...
...
@@ -72,6 +75,7 @@ let wp_forall v f =
f_forall_close_simp [v] [] f
| _ ->
f
*)
(* utility functions for building WPs *)
...
...
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