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
Jonas Kastberg
iris
Commits
f870cdaf
Commit
f870cdaf
authored
Mar 06, 2017
by
Ralf Jung
Browse files
actually create the ndisj HintDb. this makes it unfold constants so that we can use 'Hint Resolve'.
parent
21fbbdde
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/base_logic/lib/namespaces.v
View file @
f870cdaf
...
...
@@ -87,13 +87,12 @@ of the forms:
- [N1 ⊥ N2]
- [↑N1 ⊆ E ∖ ↑N2 ∖ .. ∖ ↑Nn]
- [E1 ∖ ↑N1 ⊆ E2 ∖ ↑N2 ∖ .. ∖ ↑Nn] *)
Create
HintDb
ndisj
.
Hint
Resolve
ndisj_subseteq_difference
:
ndisj
.
Hint
Extern
0
(
_
⊥
_
)
=>
apply
ndot_ne_disjoint
;
congruence
:
ndisj
.
Hint
Extern
1
(
_
⊥
_
)
=>
apply
ndot_preserve_disjoint_l
:
ndisj
.
Hint
Extern
1
(
_
⊥
_
)
=>
apply
ndot_preserve_disjoint_r
:
ndisj
.
Hint
Extern
1
(
_
⊆
_
)
=>
apply
nclose_subseteq'
:
ndisj
.
Hint
Resolve
ndot_preserve_disjoint_l
ndot_preserve_disjoint_r
nclose_subseteq'
ndisj_difference_l
:
ndisj
.
Hint
Resolve
namespace_subseteq_difference_l
|
100
:
ndisj
.
Hint
Resolve
ndisj_difference_l
:
ndisj
.
Ltac
solve_ndisj
:
=
repeat
match
goal
with
...
...
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