Commit 51e86b96 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Relate subseteq on collections to the extension order.

parent 2af4573e
......@@ -645,6 +645,11 @@ Section collection.
intros ? x; split; rewrite !elem_of_union, elem_of_difference; [|intuition].
destruct (decide (x X)); intuition.
Lemma subseteq_disjoint_union X Y : X Y Z, Y X Z X Z.
split; [|set_solver].
exists (Y X); split; [auto using union_difference|set_solver].
Lemma non_empty_difference X Y : X Y Y X .
Proof. intros [HXY1 HXY2] Hdiff. destruct HXY2. set_solver. Qed.
Lemma empty_difference_subseteq X Y : X Y X Y.
......@@ -657,6 +662,8 @@ Section collection.
Proof. unfold_leibniz. apply non_empty_difference. Qed.
Lemma empty_difference_subseteq_L X Y : X Y = X Y.
Proof. unfold_leibniz. apply empty_difference_subseteq. Qed.
Lemma subseteq_disjoint_union_L X Y : X Y Z, Y = X Z X Z.
Proof. unfold_leibniz. apply subseteq_disjoint_union. Qed.
End dec.
End collection.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment