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
0579ac10
Commit
0579ac10
authored
May 07, 2012
by
MARCHE Claude
Browse files
Fix problem with gappa substitution: subtitute modulo alpha-renaming to
ignore labels
parent
80dea17f
Changes
3
Hide whitespace changes
Inline
Side-by-side
examples/tests-provers/gappa.why
View file @
0579ac10
...
...
@@ -88,10 +88,13 @@ theory GappaEq2
goal G1 : value result - value q1 * value q2 <= 0x1.p-52
goal G2 : forall q:double. q = result ->
value q - value q1 * value q2 <= 0x1.p-52
constant q : double
axiom H3 : q = result
goal G
2
: value q - value q1 * value q2 <= 0x1.p-52
goal G
3
: value q - value q1 * value q2 <= 0x1.p-52
end
examples/tests-provers/gappa/why3session.xml
View file @
0579ac10
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE why3session SYSTEM "/
usr/local/share/why3
/why3session.dtd">
<!DOCTYPE why3session SYSTEM "/
home/marche/why3/share
/why3session.dtd">
<why3session
name=
"gappa/why3session.xml"
>
<prover
...
...
@@ -193,8 +193,8 @@
shape=
"ainfix <=ainfix -avaluearesultainfix *avalueaq1avalueaq2c0x1.p-52"
>
<proof
prover=
"0"
timelimit=
"
5
"
memlimit=
"
100
0"
timelimit=
"
10
"
memlimit=
"0"
obsolete=
"false"
archived=
"false"
>
<result
status=
"valid"
time=
"0.00"
/>
...
...
@@ -203,15 +203,32 @@
<goal
name=
"G2"
locfile=
"gappa/../gappa.why"
loclnum=
"95"
loccnumb=
"7"
loccnume=
"9"
sum=
"c95bf026f3487c9617ff54cc4bf4902d"
loclnum=
"91"
loccnumb=
"7"
loccnume=
"9"
sum=
"584bf8809239d409f578d27a534924c5"
proved=
"true"
expanded=
"true"
shape=
"ainfix <=ainfix -avalueV0ainfix *avalueaq1avalueaq2c0x1.p-52Iainfix =V0aresultF"
>
<proof
prover=
"0"
timelimit=
"10"
memlimit=
"0"
obsolete=
"false"
archived=
"false"
>
<result
status=
"valid"
time=
"0.00"
/>
</proof>
</goal>
<goal
name=
"G3"
locfile=
"gappa/../gappa.why"
loclnum=
"98"
loccnumb=
"7"
loccnume=
"9"
sum=
"9469b135d544f3a9e1746b6492709b0f"
proved=
"false"
expanded=
"true"
shape=
"ainfix <=ainfix -avalueaqainfix *avalueaq1avalueaq2c0x1.p-52"
>
<proof
prover=
"0"
timelimit=
"
5
"
memlimit=
"
100
0"
timelimit=
"
10
"
memlimit=
"0"
obsolete=
"false"
archived=
"false"
>
<result
status=
"unknown"
time=
"0.00"
/>
...
...
src/transform/simplify_formula.ml
View file @
0579ac10
...
...
@@ -202,7 +202,7 @@ let rec fmla_cond_subst filter f =
for
j
=
0
to
subl
-
1
do
if
j
<>
i
then
let
(
f
,
s
)
=
subf
.
(
j
)
in
subf
.
(
j
)
<-
(
t_replace
t1
t2
f
,
s
);
subf
.
(
j
)
<-
(
t_replace
_alpha
t1
t2
f
,
s
);
done
in
let
(
f
,
s
)
=
subf
.
(
i
)
in
match
f
.
t_node
with
...
...
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