Commit 401e4625 by 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.
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.
This diff is collapsed.
This diff is collapsed.
 name="examples/programs/ewd673/why3session.xml" shape_version="2"> expanded="true"> shape="iainfix >V3c0iainfix >V3c0iainfix >V6c0ainfix <V7V2Aainfix <=c0V2Aainfix =V3V4Oainfix <V4V3Aainfix <=c0V3Aainfix >=V7c0Aainfix >=V4c0Iainfix =V7ainfix -V6c1Fainfix <V6V2Aainfix <=c0V2Aainfix =V3V4Oainfix <V4V3Aainfix <=c0V3Aainfix >=V6c0Aainfix >=V4c0Iainfix =V6V5FIainfix >=V5c0FIainfix =V4ainfix -V3c1Fiainfix >V2c0ainfix <V8V2Aainfix <=c0V2Oainfix <V3V3Aainfix <=c0V3Aainfix >=V8c0Aainfix >=V3c0Iainfix =V8ainfix -V2c1Fainfix <V2V2Aainfix <=c0V2Oainfix <V3V3Aainfix <=c0V3Aainfix >=V2c0Aainfix >=V3c0iainfix >V3c0iainfix >V11c0ainfix <V12V2Aainfix <=c0V2Aainfix =V3V9Oainfix <V9V3Aainfix <=c0V3Aainfix >=V12c0Aainfix >=V9c0Iainfix =V12ainfix -V11c1Fainfix <V11V2Aainfix <=c0V2Aainfix =V3V9Oainfix <V9V3Aainfix <=c0V3Aainfix >=V11c0Aainfix >=V9c0Iainfix =V11V10FIainfix >=V10c0FIainfix =V9ainfix -V3c1Fiainfix >V2c0ainfix <V13V2Aainfix <=c0V2Oainfix <V3V3Aainfix <=c0V3Aainfix >=V13c0Aainfix >=V3c0Iainfix =V13ainfix -V2c1Fainfix <V2V2Aainfix <=c0V2Oainfix <V3V3Aainfix <=c0V3Aainfix >=V2c0Aainfix >=V3c0Iainfix >V2c0Iainfix >=V2c0Aainfix >=V3c0FAainfix >=V0c0Aainfix >=V1c0Iainfix >=V0c0Aainfix >=V1c0F">
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
 name="examples/programs/foveoos11_challenge2/why3session.xml" shape_version="2"> expanded="true"> ... ...
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
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