mirror of
https://github.com/nmvdw/HITs-Examples
synced 2025-11-03 07:03:51 +01:00
Elements of union
This commit is contained in:
@@ -428,5 +428,11 @@ hrecursion X; try (intros ; apply set_path2).
|
||||
rewrite <- P.
|
||||
rewrite <- Q.
|
||||
Admitted.
|
||||
|
||||
Theorem union_isIn (X Y : FSet A) (a : A) : isIn a (U X Y) = orb (isIn a X) (isIn a Y).
|
||||
Proof.
|
||||
reflexivity.
|
||||
Defined.
|
||||
|
||||
|
||||
End properties.
|
||||
|
||||
Reference in New Issue
Block a user