Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Marianna Rapoport
iris-coq
Commits
da599b51
Commit
da599b51
authored
Feb 11, 2016
by
Ralf Jung
Browse files
add a tactic to solve non-expansiveness goals
parent
74ca0005
Changes
2
Hide whitespace changes
Inline
Side-by-side
algebra/cofe.v
View file @
da599b51
...
...
@@ -21,6 +21,8 @@ Tactic Notation "cofe_subst" :=
|
H
:
@
dist
?A
?d
?n
_
?x
|-
_
=>
symmetry
in
H
;
setoid_subst_aux
(@
dist
A
d
n
)
x
end
.
Tactic
Notation
"solve_ne"
:
=
move
=>
n
;
solve_proper
.
Record
chain
(
A
:
Type
)
`
{
Dist
A
}
:
=
{
chain_car
:
>
nat
→
A
;
chain_cauchy
n
i
:
n
<
i
→
chain_car
i
≡
{
n
}
≡
chain_car
(
S
n
)
...
...
program_logic/auth.v
View file @
da599b51
...
...
@@ -56,9 +56,7 @@ Section auth.
rewrite
own_valid_r
auth_valid
!
sep_exist_l
/=.
apply
exist_elim
=>
a'
.
rewrite
[
∅
⋅
_
]
left_id
-(
exist_intro
a'
).
apply
(
eq_rewrite
b
(
a
⋅
a'
)
(
λ
x
,
▷φ
x
★
own
AuthI
γ
(
●
x
⋅
◯
a
))%
I
).
{
(* TODO this asks for automation. *)
move
=>
n
a1
a2
Ha
.
by
rewrite
!
Ha
.
}
(
λ
x
,
▷φ
x
★
own
AuthI
γ
(
●
x
⋅
◯
a
))%
I
)
;
first
by
solve_ne
.
{
by
rewrite
!
sep_elim_r
.
}
apply
sep_mono
;
first
done
.
by
rewrite
sep_elim_l
.
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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