Skip to content
Snippets Groups Projects
Commit 1f223f8f authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Put `top_subseteq` in core DB to fix Iris regression.

parent 06da8f18
No related branches found
No related tags found
No related merge requests found
Pipeline #24380 passed
...@@ -80,12 +80,15 @@ Create HintDb ndisj. ...@@ -80,12 +80,15 @@ Create HintDb ndisj.
considering they are. *) considering they are. *)
Hint Resolve (subseteq_difference_r (A:=positive) (C:=coPset)) : ndisj. Hint Resolve (subseteq_difference_r (A:=positive) (C:=coPset)) : ndisj.
Hint Resolve (empty_subseteq (A:=positive) (C:=coPset)) : ndisj. Hint Resolve (empty_subseteq (A:=positive) (C:=coPset)) : ndisj.
Hint Resolve (top_subseteq (A:=positive) (C:=coPset)) : ndisj.
Hint Resolve (union_least (A:=positive) (C:=coPset)) : ndisj. Hint Resolve (union_least (A:=positive) (C:=coPset)) : ndisj.
(** Fallback, loses lots of information but lets other rules make progress. *) (** Fallback, loses lots of information but lets other rules make progress. *)
Hint Resolve (subseteq_difference_l (A:=positive) (C:=coPset)) | 100 : ndisj. Hint Resolve (subseteq_difference_l (A:=positive) (C:=coPset)) | 100 : ndisj.
Hint Resolve nclose_subseteq' | 100 : ndisj. Hint Resolve nclose_subseteq' | 100 : ndisj.
(** Put this hint in [core] so that only only [solve_ndisj], but also [done] and
friends, can solve trivial goals of the form [E ⊆ ⊤] that occur often. *)
Hint Resolve (top_subseteq (A:=positive) (C:=coPset)) : core.
(** Rules for goals of the form [_ ## _] *) (** Rules for goals of the form [_ ## _] *)
(** The base rule that we want to ultimately get down to. *) (** The base rule that we want to ultimately get down to. *)
Hint Extern 0 (_ ## _) => apply ndot_ne_disjoint; congruence : ndisj. Hint Extern 0 (_ ## _) => apply ndot_ne_disjoint; congruence : ndisj.
......
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