Skip to content
Snippets Groups Projects
Commit f870cdaf authored by Ralf Jung's avatar Ralf Jung
Browse files

actually create the ndisj HintDb. this makes it unfold constants so that we can use 'Hint Resolve'.

parent 21fbbdde
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment