Reindent consistently bullets

This commit is contained in:
Théophile Bastian 2017-12-06 22:19:17 +01:00
parent 5dfc412c10
commit 908bed1331

10
wp.v
View file

@ -224,7 +224,6 @@ Inductive hoare_provability : Assert -> Instr -> Assert -> Prop :=
forall pre, forall post,
forall pre', forall post',
forall s,
(|- [| pre' |] s [| post' |]) % assert ->
(assertImplLogical pre pre') ->
(assertImplLogical post' post) ->
@ -396,7 +395,8 @@ Proof.
intros n [lastIter [notLastIter isWhile] ].
rewrite isWhile in interpRel.
destruct n.
{ simpl in lastIter. simpl in interpRel; unfold MemElem in interpRel.
{
simpl in lastIter. simpl in interpRel; unfold MemElem in interpRel.
unfold assertAnd. apply (unwrap_CpoElem Mem) in interpRel. split.
{ rewrite interpRel in preInMem; assumption. }
{ apply expr_neg_consistency; rewrite <- interpRel; assumption. }
@ -444,7 +444,7 @@ Qed.
Fixpoint wp (instr: Instr) (cond: Assert) : Assert := match instr with
| skip =>
cond
| abort =>
| abort =>
assertTop
| assign x expr =>
cond [[ x <- expr expr ]]
@ -459,5 +459,7 @@ end.
Theorem wp_correctness (instr: Instr) (post: Assert) :
( |= [| wp instr post |] instr [| post |] ) % assert.
Proof.
(* TODO *)
Admitted.
(* vim: ts=2 sw=2
*)