Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Marianna Rapoport
iris-coq
Commits
14a67809
Commit
14a67809
authored
Mar 09, 2017
by
Robbert Krebbers
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Prove pure_ne to make f_equiv work better.
parent
9b6de3dd
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
1 deletion
+4
-1
theories/base_logic/primitive.v
theories/base_logic/primitive.v
+4
-1
No files found.
theories/base_logic/primitive.v
View file @
14a67809
...
...
@@ -211,8 +211,11 @@ Arguments uPred_holds {_} !_ _ _ /.
Hint
Immediate
uPred_in_entails
.
(** Non-expansiveness and setoid morphisms *)
Global
Instance
pure_proper
:
Proper
(
iff
==>
(
⊣
⊢
))
(@
uPred_pure
M
).
Global
Instance
pure_proper
:
Proper
(
iff
==>
(
⊣
⊢
))
(@
uPred_pure
M
)
|
0
.
Proof
.
intros
φ
1
φ
2
H
φ
.
by
unseal
;
split
=>
-[|
n
]
?
;
try
apply
H
φ
.
Qed
.
Global
Instance
pure_ne
n
:
Proper
(
iff
==>
dist
n
)
(@
uPred_pure
M
)
|
1
.
Proof
.
by
intros
φ
1
φ
2
->.
Qed
.
Global
Instance
and_ne
:
NonExpansive2
(@
uPred_and
M
).
Proof
.
intros
n
P
P'
HP
Q
Q'
HQ
;
unseal
;
split
=>
x
n'
??.
...
...
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