### update prover identifiers in Coq proofs

parent 0cb3c6a5
 name="examples/check-builtin/real/why3session.xml" shape_version="2"> ... ... @@ -835,7 +835,7 @@ memlimit="0" obsolete="false" archived="false">
 ... ... @@ -480,7 +480,7 @@ Unset Implicit Arguments. Require Why3. Ltac ae := why3 "alt-ergo" timelimit 2. Ltac ae10 := why3 "alt-ergo" timelimit 10. Ltac cvc10 := why3 "cvc3-2.4" timelimit 10. Ltac cvc10 := why3 "cvc3" timelimit 10. (* Why3 goal *) Theorem wp_conj : forall (sigma:(map Z value)) (pi:(list (Z* value)%type)) ... ...
 ... ... @@ -561,7 +561,7 @@ Axiom wp_conj : forall (sigma:(map ident value)) (pi:(list (ident* Require Why3. Ltac ae := why3 "alt-ergo" timelimit 2. Ltac ae10 := why3 "alt-ergo" timelimit 10. Ltac cvc10 := why3 "cvc3-2.4" timelimit 10. Ltac cvc10 := why3 "cvc3" timelimit 10. (* Why3 goal *) Theorem wp_reduction : forall (sigma:(map ident value)) (sigma':(map ident ... ...
 ... ... @@ -256,7 +256,7 @@ Theorem long_path_decomposition_pigeon1 : forall (l:(list vertex)) Require Why3. Ltac ae := why3 "alt-ergo". Ltac cvc := why3 "cvc3-2.4". Ltac cvc := why3 "cvc3". intros l v H0. induction H0. ... ...
 ... ... @@ -271,7 +271,7 @@ Theorem long_path_decomposition_pigeon3 : forall (l:(list vertex)) Require Why3. Ltac ae := why3 "alt-ergo". Ltac cvc := why3 "cvc3-2.4". Ltac cvc := why3 "cvc3". intros l v H1. destruct H1 as (e & l1 & l2 & l3 & H1). ... ...
 ... ... @@ -417,7 +417,7 @@ intros (h4, h5). destruct (get m u) as [] _eqn. 2: intuition. destruct (get m v) as [] _eqn. intros hlt. apply key_lemma_1 with v z0. why3 "z3-3". why3 "z3". assert (hu: exists lu: list vertex, path s lu u /\ path_weight lu u = z) by ae. destruct hu as (lu, (hu1, hu2)). exists (infix_plpl lu (Cons u Nil)); ae. ... ...
 ... ... @@ -438,7 +438,7 @@ Axiom key_lemma_2 : forall (m:(map vertex t)), (inv1 m (cardinal vertices) forall (v:vertex), ~ (negative_cycle v)). Require Import Why3. Ltac Z3 := why3 "z3-3". Ltac Z3 := why3 "z3". Ltac ae := why3 "alt-ergo". (* Why3 goal *) ... ... @@ -498,7 +498,7 @@ destruct (get m1 v) as [] _eqn; auto. intros l hpath hlength. destruct (path_right_inversion s v l hpath) as [(h1,h2) | (y, (l', (h1, (h2, h3))))]. (* Nil *) subst. simpl. why3 "cvc3-2.4". subst. simpl. why3 "cvc3". (* Cons *) rewrite h3; rewrite path_weight_right_extension. generalize (H6 v H7); clear H6. ... ...
 ... ... @@ -435,7 +435,7 @@ Definition inv2(m:(map vertex t)) (via:(set1 (vertex* vertex)%type)): Prop := Require Import Why3. Ltac ae := why3 "alt-ergo" timelimit 30. Ltac Z3 := why3 "z3-3" timelimit 10. Ltac Z3 := why3 "z3" timelimit 10. Lemma length_nonneg: forall a, forall l: list a, (length l >= 0)%Z. induction l; ae. ... ...
 ... ... @@ -134,12 +134,12 @@ generalize (h10 k h). intros h10k. assert (case: (j < get g1 k \/ j = get g1 k \/ j > get g1 k)%Z) by omega. destruct case. (* j < g[k] *) why3 "z3-3" timelimit 5. why3 "z3" timelimit 5. destruct H5. (* j = g[k] *) ae. (* j > g[k] *) why3 "z3-3" timelimit 3. why3 "z3" timelimit 3. (* k = 0 *) ae. Qed. ... ...
 name="programs/fibonacci/why3session.xml" shape_version="2"> ... ... @@ -45,13 +45,13 @@ ... ... @@ -171,16 +171,16 @@ ... ... @@ -192,10 +192,10 @@ expanded="true"> ... ... @@ -236,10 +236,10 @@ ... ... @@ -251,15 +251,15 @@ memlimit="1000" obsolete="false" archived="false"> ... ... @@ -284,10 +284,10 @@ ... ... @@ -300,16 +300,16 @@ edited="fibonacci_WP_FibonacciLogarithmic_WP_parameter_logfib_1.v" obsolete="false" archived="false">