Commit | Line | Data |
---|---|---|
34e49164 C |
1 | class virtual ['a] oset : |
2 | object ('o) | |
3 | inherit ['a] Ocollection.ocollection | |
4 | ||
5 | method cardinal : int | |
ae4735db | 6 | |
34e49164 C |
7 | method virtual inter : 'o -> 'o |
8 | method virtual minus : 'o -> 'o | |
9 | method virtual union : 'o -> 'o | |
ae4735db | 10 | |
34e49164 C |
11 | method is_singleton : bool |
12 | method is_subset_of : 'o -> bool | |
13 | method is_equal : 'o -> bool | |
ae4735db | 14 | |
34e49164 C |
15 | method virtual toset : 'd |
16 | method tosetb : 'a Setb.t | |
17 | method toseti : Seti.seti | |
18 | method tosetpt : SetPt.t | |
19 | end | |
20 | ||
21 | val ( $??$ ) : 'a -> < mem : 'a -> bool; .. > -> bool | |
22 | val ( $++$ ) : < union : 'a -> 'o; .. > -> 'a -> 'o | |
23 | val ( $**$ ) : < inter : 'a -> 'o; .. > -> 'a -> 'o | |
24 | val ( $--$ ) : < minus : 'a -> 'o; .. > -> 'a -> 'o | |
25 | val ( $<<=$ ) : < is_subset_of : 'a -> bool; .. > -> 'a -> bool | |
26 | val ( $==$ ) : < is_equal : 'a -> bool; .. > -> 'a -> bool | |
27 | ||
28 | val mapo : ('a -> 'o) -> 'o oset -> 'a oset -> 'o oset |