pl/frap
1
0
Fork 0
mirror of https://github.com/achlipala/frap.git synced 2024-11-12 17:17:50 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge branch 'master' of github.com:achlipala/frap

Browse source
This commit is contained in:
Adam Chlipala 2020-04-08 10:48:27 -04:00
commit 000c22f7f1
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
HoareLogic_template.v
View file

@ -264,10 +264,10 @@ Proof.
ht. ht.
Qed. Qed.
Hint Resolve leq_f. Hint Resolve leq_f : core.
Hint Extern 1 (@eq nat _ _) => linear_arithmetic. Hint Extern 1 (@eq nat _ _) => linear_arithmetic : core.
Hint Extern 1 (_ < _) => linear_arithmetic. Hint Extern 1 (_ < _) => linear_arithmetic : core.
Hint Extern 1 (_ <= _) => linear_arithmetic. Hint Extern 1 (_ <= _) => linear_arithmetic : core.
(* We also register [linear_arithmetic] as a step to try during proof search. *) (* We also register [linear_arithmetic] as a step to try during proof search. *)
Theorem selectionSort_ok : Theorem selectionSort_ok :
@ -324,7 +324,7 @@ Inductive step : heap * valuation * cmd -> heap * valuation * cmd -> Prop :=
a h v a h v
-> step (h, v, Assert a) (h, v, Skip). -> step (h, v, Assert a) (h, v, Skip).
Hint Constructors step. Hint Constructors step : core.
Definition trsys_of (st : heap * valuation * cmd) := {| Definition trsys_of (st : heap * valuation * cmd) := {|
Initial := {st}; Initial := {st};