blocking_semantics3 continued

examples/hoare_logic/blocking_semantics3.mlw

@@ -713,10 +713,12 @@ predicate stmt_writes (s:stmt) (w:Set.set mident) =
        (eval_fmla sigma pi (wp s p)) /\
        (eval_fmla sigma pi (wp s q))
 
+(*
   lemma monotonicity:
     forall s:stmt, p q:fmla.
       valid_fmla (Fimplies p q)
      ->	valid_fmla (Fimplies (wp s p) (wp s q) )
+*)
 
   lemma wp_reduction:
     forall sigma sigma':env, pi pi':stack, s s':stmt.

examples/hoare_logic/blocking_semantics3/blocking_semantics3_WP_wp_reduction_1.v

@@ -693,9 +693,6 @@ Axiom distrib_conj : forall (sigma:(map mident value)) (pi:(list (ident*
   value)%type)) (s:stmt) (p:fmla) (q:fmla), (eval_fmla sigma pi (wp s (Fand p
   q))) <-> ((eval_fmla sigma pi (wp s p)) /\ (eval_fmla sigma pi (wp s q))).
 
-Axiom monotonicity : forall (s:stmt) (p:fmla) (q:fmla),
-  (valid_fmla (Fimplies p q)) -> (valid_fmla (Fimplies (wp s p) (wp s q))).
-
 (* Why3 goal *)
 Theorem wp_reduction : forall (sigma:(map mident value)) (sigma':(map mident
   value)) (pi:(list (ident* value)%type)) (pi':(list (ident* value)%type))
@@ -705,8 +702,11 @@ induction 1; intros q Hq.
 (* case Sassign *)
 simpl.
 simpl in Hq.
+noadmit. 
+(*
 rewrite eval_msubst in Hq.
-(* TODO *)
+
+TODO *)
 
 (* case Sseq *)
 simpl.