Commit 401e4625 authored by Andrei Paskevich's avatar Andrei Paskevich

update sessions

parent 7497d447
This source diff could not be displayed because it is too large. You can view the blob instead.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
......@@ -72,6 +72,10 @@ Definition get1 {a:Type} {a_WT:WhyType a}(a1:(array a)) (i:Z): a :=
Definition set1 {a:Type} {a_WT:WhyType a}(a1:(array a)) (i:Z) (v:a): (array
a) := (mk_array (length a1) (set (elts a1) i v)).
(* Why3 assumption *)
Definition make {a:Type} {a_WT:WhyType a}(n:Z) (v:a): (array a) :=
(mk_array n (const v:(map Z a))).
Parameter n: Z.
Axiom n_nonneg : (0%Z < n)%Z.
......@@ -99,21 +103,21 @@ Theorem WP_parameter_distance : (0%Z <= n)%Z -> ((((0%Z < 0%Z)%Z \/
(0%Z = 0%Z)) /\ (0%Z < n)%Z) -> forall (g:(map Z Z)),
(g = (set (const 0%Z:(map Z Z)) 0%Z (-1%Z)%Z)) -> ((0%Z <= n)%Z ->
(((1%Z < (n - 1%Z)%Z)%Z \/ (1%Z = (n - 1%Z)%Z)) -> forall (count:Z) (d:(map
Z Z)) (g1:(map Z Z)), (((get d 0%Z) = 0%Z) /\ (((get g1 0%Z) = (-1%Z)%Z) /\
((((count + (get d
Z Z)) (g1:(map Z Z)), (((((get d 0%Z) = 0%Z) /\ (((get g1
0%Z) = (-1%Z)%Z) /\ (((count + (get d
(((n - 1%Z)%Z + 1%Z)%Z - 1%Z)%Z))%Z < (((n - 1%Z)%Z + 1%Z)%Z - 1%Z)%Z)%Z \/
((count + (get d
(((n - 1%Z)%Z + 1%Z)%Z - 1%Z)%Z))%Z = (((n - 1%Z)%Z + 1%Z)%Z - 1%Z)%Z)) /\
((forall (k:Z), ((0%Z < k)%Z /\ (k < ((n - 1%Z)%Z + 1%Z)%Z)%Z) ->
(((((get g1 (get g1 k)) < (f k))%Z /\ (((f k) < (get g1 k))%Z \/
((f k) = (get g1 k)))) /\ ((get g1 k) < k)%Z) /\ ((((0%Z < (get d k))%Z \/
(0%Z = (get d k))) /\ ((get d k) = ((get d (get g1 k)) + 1%Z)%Z)) /\
forall (k':Z), (((get g1 k) < k')%Z /\ (k' < k)%Z) -> ((get d (get g1
k)) < (get d k'))%Z))) /\ forall (k:Z), (((0%Z < k)%Z \/ (0%Z = k)) /\
(k < ((n - 1%Z)%Z + 1%Z)%Z)%Z) -> (path (get d k) k))))) ->
((count < n)%Z -> forall (k:Z), (((0%Z < k)%Z \/ (0%Z = k)) /\
(k < n)%Z) -> forall (d':Z), (path d' k) -> ((get d k) <= d')%Z)))).
intros h1 (h2,h3) g h4 h5 h6 count d g1 (h7,(h8,(h9,(h10,h11)))) h12 k
(((n - 1%Z)%Z + 1%Z)%Z - 1%Z)%Z))%Z = (((n - 1%Z)%Z + 1%Z)%Z - 1%Z)%Z)))) /\
forall (k:Z), ((0%Z < k)%Z /\ (k < ((n - 1%Z)%Z + 1%Z)%Z)%Z) -> (((((get g1
(get g1 k)) < (f k))%Z /\ (((f k) < (get g1 k))%Z \/ ((f k) = (get g1
k)))) /\ ((get g1 k) < k)%Z) /\ (((0%Z < (get d k))%Z /\ ((get d
k) = ((get d (get g1 k)) + 1%Z)%Z)) /\ forall (k':Z), (((get g1
k) < k')%Z /\ (k' < k)%Z) -> ((get d (get g1 k)) < (get d k'))%Z))) /\
forall (k:Z), (((0%Z < k)%Z \/ (0%Z = k)) /\
(k < ((n - 1%Z)%Z + 1%Z)%Z)%Z) -> (path (get d k) k)) -> ((count < n)%Z ->
forall (k:Z), (((0%Z < k)%Z \/ (0%Z = k)) /\ (k < n)%Z) -> forall (d':Z),
(path d' k) -> ((get d k) <= d')%Z)))).
intros h1 (h2,h3) g h4 h5 h6 count d g1 (((h7,(h8,h9)),h10),h11) h12 k
(h13,h14) d' h15.
clear h1 h2.
clear h5 h6.
......
This diff is collapsed.
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE why3session SYSTEM "/users/demons/melquion/src/why3/share/why3session.dtd">
<!DOCTYPE why3session SYSTEM "/home/andrei/prj/why-git/share/why3session.dtd">
<why3session
name="programs/ewd673/why3session.xml" shape_version="2">
name="examples/programs/ewd673/why3session.xml" shape_version="2">
<prover
id="0"
name="Alt-Ergo"
......@@ -9,22 +9,22 @@
<file
name="../ewd673.mlw"
verified="true"
expanded="false">
expanded="true">
<theory
name="EWD673"
locfile="programs/ewd673/../ewd673.mlw"
locfile="examples/programs/ewd673/../ewd673.mlw"
loclnum="4" loccnumb="7" loccnume="13"
verified="true"
expanded="true">
<goal
name="WP_parameter s"
locfile="programs/ewd673/../ewd673.mlw"
locfile="examples/programs/ewd673/../ewd673.mlw"
loclnum="14" loccnumb="6" loccnume="7"
expl="parameter s"
sum="67631c4a8c514dc67d730a7f05ebdb1d"
sum="d482d3da53a0a919cb67813673c24a9f"
proved="true"
expanded="true"
shape="iainfix &gt;V3c0iainfix &gt;V3c0iainfix &gt;V6c0alexaTuple2V4V7aTuple2V3V2Aainfix &gt;=V7c0Aainfix &gt;=V4c0Iainfix =V7ainfix -V6c1FalexaTuple2V4V6aTuple2V3V2Aainfix &gt;=V6c0Aainfix &gt;=V4c0Iainfix =V6V5FIainfix &gt;=V5c0FIainfix =V4ainfix -V3c1Fiainfix &gt;V2c0alexaTuple2V3V8aTuple2V3V2Aainfix &gt;=V8c0Aainfix &gt;=V3c0Iainfix =V8ainfix -V2c1FalexaTuple2V3V2aTuple2V3V2Aainfix &gt;=V2c0Aainfix &gt;=V3c0iainfix &gt;V3c0iainfix &gt;V11c0alexaTuple2V9V12aTuple2V3V2Aainfix &gt;=V12c0Aainfix &gt;=V9c0Iainfix =V12ainfix -V11c1FalexaTuple2V9V11aTuple2V3V2Aainfix &gt;=V11c0Aainfix &gt;=V9c0Iainfix =V11V10FIainfix &gt;=V10c0FIainfix =V9ainfix -V3c1Fiainfix &gt;V2c0alexaTuple2V3V13aTuple2V3V2Aainfix &gt;=V13c0Aainfix &gt;=V3c0Iainfix =V13ainfix -V2c1FalexaTuple2V3V2aTuple2V3V2Aainfix &gt;=V2c0Aainfix &gt;=V3c0Iainfix &gt;V2c0Iainfix &gt;=V2c0Aainfix &gt;=V3c0FAainfix &gt;=V0c0Aainfix &gt;=V1c0Iainfix &gt;=V0c0Aainfix &gt;=V1c0F">
shape="iainfix &gt;V3c0iainfix &gt;V3c0iainfix &gt;V6c0ainfix &lt;V7V2Aainfix &lt;=c0V2Aainfix =V3V4Oainfix &lt;V4V3Aainfix &lt;=c0V3Aainfix &gt;=V7c0Aainfix &gt;=V4c0Iainfix =V7ainfix -V6c1Fainfix &lt;V6V2Aainfix &lt;=c0V2Aainfix =V3V4Oainfix &lt;V4V3Aainfix &lt;=c0V3Aainfix &gt;=V6c0Aainfix &gt;=V4c0Iainfix =V6V5FIainfix &gt;=V5c0FIainfix =V4ainfix -V3c1Fiainfix &gt;V2c0ainfix &lt;V8V2Aainfix &lt;=c0V2Oainfix &lt;V3V3Aainfix &lt;=c0V3Aainfix &gt;=V8c0Aainfix &gt;=V3c0Iainfix =V8ainfix -V2c1Fainfix &lt;V2V2Aainfix &lt;=c0V2Oainfix &lt;V3V3Aainfix &lt;=c0V3Aainfix &gt;=V2c0Aainfix &gt;=V3c0iainfix &gt;V3c0iainfix &gt;V11c0ainfix &lt;V12V2Aainfix &lt;=c0V2Aainfix =V3V9Oainfix &lt;V9V3Aainfix &lt;=c0V3Aainfix &gt;=V12c0Aainfix &gt;=V9c0Iainfix =V12ainfix -V11c1Fainfix &lt;V11V2Aainfix &lt;=c0V2Aainfix =V3V9Oainfix &lt;V9V3Aainfix &lt;=c0V3Aainfix &gt;=V11c0Aainfix &gt;=V9c0Iainfix =V11V10FIainfix &gt;=V10c0FIainfix =V9ainfix -V3c1Fiainfix &gt;V2c0ainfix &lt;V13V2Aainfix &lt;=c0V2Oainfix &lt;V3V3Aainfix &lt;=c0V3Aainfix &gt;=V13c0Aainfix &gt;=V3c0Iainfix =V13ainfix -V2c1Fainfix &lt;V2V2Aainfix &lt;=c0V2Oainfix &lt;V3V3Aainfix &lt;=c0V3Aainfix &gt;=V2c0Aainfix &gt;=V3c0Iainfix &gt;V2c0Iainfix &gt;=V2c0Aainfix &gt;=V3c0FAainfix &gt;=V0c0Aainfix &gt;=V1c0Iainfix &gt;=V0c0Aainfix &gt;=V1c0F">
<label
name="expl:parameter s"/>
<proof
......
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE why3session SYSTEM "/users/demons/melquion/src/why3/share/why3session.dtd">
<!DOCTYPE why3session SYSTEM "/home/andrei/prj/why-git/share/why3session.dtd">
<why3session
name="programs/foveoos11_challenge2/why3session.xml" shape_version="2">
name="examples/programs/foveoos11_challenge2/why3session.xml" shape_version="2">
<prover
id="0"
name="Alt-Ergo"
......@@ -13,16 +13,16 @@
<file
name="../foveoos11_challenge2.mlw"
verified="true"
expanded="false">
expanded="true">
<theory
name="MaximumTree"
locfile="programs/foveoos11_challenge2/../foveoos11_challenge2.mlw"
locfile="examples/programs/foveoos11_challenge2/../foveoos11_challenge2.mlw"
loclnum="8" loccnumb="7" loccnume="18"
verified="true"
expanded="true">
<goal
name="size_nonneg"
locfile="programs/foveoos11_challenge2/../foveoos11_challenge2.mlw"
locfile="examples/programs/foveoos11_challenge2/../foveoos11_challenge2.mlw"
loclnum="20" loccnumb="8" loccnume="19"
sum="ba39d9e15f0eb409495e0345a4eba1d8"
proved="true"
......@@ -35,12 +35,12 @@
edited="foveoos11_challenge2_WP_MaximumTree_size_nonneg_1.v"
obsolete="false"
archived="false">
<result status="valid" time="0.51"/>
<result status="valid" time="0.48"/>
</proof>
</goal>
<goal
name="WP_parameter maximum"
locfile="programs/foveoos11_challenge2/../foveoos11_challenge2.mlw"
locfile="examples/programs/foveoos11_challenge2/../foveoos11_challenge2.mlw"
loclnum="27" loccnumb="10" loccnume="17"
expl="parameter maximum"
sum="b2a63f393bdf621e5dae287eb0d142ce"
......@@ -55,7 +55,7 @@
memlimit="0"
obsolete="false"
archived="false">
<result status="valid" time="0.44"/>
<result status="valid" time="0.43"/>
</proof>
</goal>
</theory>
......
This diff is collapsed.
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment