Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Iris
Fairis
Commits
94ab527c
Commit
94ab527c
authored
Feb 02, 2016
by
Ralf Jung
Browse files
add an omega auto database
parent
a3d083c7
Changes
3
Hide whitespace changes
Inline
Side-by-side
barrier/lifting.v
View file @
94ab527c
...
...
@@ -100,7 +100,7 @@ Lemma wp_le_true E n1 n2 Q :
▷
Q
LitTrueV
⊑
wp
E
(
Le
(
LitNat
n1
)
(
LitNat
n2
))
Q
.
Proof
.
intros
;
rewrite
-
(
wp_lift_pure_det_step
(
Le
_
_
)
LitTrue
None
)
?
right_id
//;
last
by
intros
;
inv_step
;
eauto
with
li
a
.
last
by
intros
;
inv_step
;
eauto
with
omeg
a
.
by
rewrite
-
wp_value
'
.
Qed
.
...
...
@@ -109,7 +109,7 @@ Lemma wp_le_false E n1 n2 Q :
▷
Q
LitFalseV
⊑
wp
E
(
Le
(
LitNat
n1
)
(
LitNat
n2
))
Q
.
Proof
.
intros
;
rewrite
-
(
wp_lift_pure_det_step
(
Le
_
_
)
LitFalse
None
)
?
right_id
//;
last
by
intros
;
inv_step
;
eauto
with
li
a
.
last
by
intros
;
inv_step
;
eauto
with
omeg
a
.
by
rewrite
-
wp_value
'
.
Qed
.
...
...
@@ -155,7 +155,7 @@ Lemma wp_le E n1 n2 P Q :
Proof
.
intros
;
destruct
(
decide
(
n1
≤
n2
)).
*
rewrite
-
wp_le_true
;
auto
.
*
rewrite
-
wp_le_false
;
auto
with
li
a
.
*
rewrite
-
wp_le_false
;
auto
with
omeg
a
.
Qed
.
End
lifting
.
barrier/tests.v
View file @
94ab527c
...
...
@@ -90,7 +90,7 @@ Module LiftingTests.
*
rewrite
-
wp_case_inr
//.
rewrite
-!
later_intro
-
wp_value
'
//.
rewrite
and_elim_r
.
apply
const_elim_l
=>
Hle
.
by
replace
n1
with
(
pred
n2
)
by
li
a
.
by
replace
n1
with
(
pred
n2
)
by
omeg
a
.
Qed
.
Lemma
Pred_spec
n
E
Q
:
...
...
@@ -101,10 +101,10 @@ Module LiftingTests.
apply
later_mono
,
wp_le
=>
Hn
.
-
rewrite
-
wp_case_inl
//.
rewrite
-!
later_intro
-
wp_value
'
//.
by
replace
n
with
0
by
li
a
.
by
replace
n
with
0
by
omeg
a
.
-
rewrite
-
wp_case_inr
//.
rewrite
-!
later_intro
-
FindPred_spec
.
auto
using
and_intro
,
const_intro
with
li
a
.
auto
using
and_intro
,
const_intro
with
omeg
a
.
Qed
.
Goal
∀
E
,
...
...
prelude/tactics.v
View file @
94ab527c
...
...
@@ -2,6 +2,7 @@
(
*
This
file
is
distributed
under
the
terms
of
the
BSD
license
.
*
)
(
**
This
file
collects
general
purpose
tactics
that
are
used
throughout
the
development
.
*
)
Require
Import
Omega
.
Require
Export
Psatz
.
Require
Export
prelude
.
base
.
...
...
@@ -24,6 +25,7 @@ to be combined in combination with other hint database. *)
Hint
Extern
998
(
_
=
_
)
=>
f_equal
:
f_equal
.
Hint
Extern
999
=>
congruence
:
congruence
.
Hint
Extern
1000
=>
lia
:
lia
.
Hint
Extern
1000
=>
omega
:
omega
.
(
**
The
tactic
[
intuition
]
expands
to
[
intuition
auto
with
*
]
by
default
.
This
is
rather
efficient
when
having
big
hint
databases
,
or
expensive
[
Hint
Extern
]
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment