mirror of
https://github.com/achlipala/frap.git
synced 2024-11-10 00:07:51 +00:00
HoareLogic_template: hint databases
This commit is contained in:
parent
583605fded
commit
da53b28584
1 changed files with 5 additions and 5 deletions
|
@ -264,10 +264,10 @@ Proof.
|
|||
ht.
|
||||
Qed.
|
||||
|
||||
Hint Resolve leq_f.
|
||||
Hint Extern 1 (@eq nat _ _) => linear_arithmetic.
|
||||
Hint Extern 1 (_ < _) => linear_arithmetic.
|
||||
Hint Extern 1 (_ <= _) => linear_arithmetic.
|
||||
Hint Resolve leq_f : core.
|
||||
Hint Extern 1 (@eq nat _ _) => linear_arithmetic : core.
|
||||
Hint Extern 1 (_ < _) => linear_arithmetic : core.
|
||||
Hint Extern 1 (_ <= _) => linear_arithmetic : core.
|
||||
(* We also register [linear_arithmetic] as a step to try during proof search. *)
|
||||
|
||||
Theorem selectionSort_ok :
|
||||
|
@ -324,7 +324,7 @@ Inductive step : heap * valuation * cmd -> heap * valuation * cmd -> Prop :=
|
|||
a h v
|
||||
-> step (h, v, Assert a) (h, v, Skip).
|
||||
|
||||
Hint Constructors step.
|
||||
Hint Constructors step : core.
|
||||
|
||||
Definition trsys_of (st : heap * valuation * cmd) := {|
|
||||
Initial := {st};
|
||||
|
|
Loading…
Reference in a new issue