Skip to content
GitLab
Menu
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
637a374f
Commit
637a374f
authored
Jul 15, 2010
by
Francois Bobot
Browse files
Fix simplify_formula occurence_check ( :( )
parent
3c49b28c
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/transform/simplify_formula.ml
View file @
637a374f
...
...
@@ -109,7 +109,7 @@ let rec fmla_quant sign f = function
|
vs
::
l
->
let
vsl
,
f
=
fmla_quant
sign
f
l
in
try
fmla_find_subst
Svs
.
empty
vs
sign
f
;
fmla_find_subst
(
Svs
.
singleton
vs
)
vs
sign
f
;
vs
::
vsl
,
f
with
Subst_found
t
->
let
f
=
f_subst_single
vs
t
f
in
...
...
Write
Preview
Supports
Markdown
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