| 122 |
and returns a refined type for this abstraction. |
and returns a refined type for this abstraction. |
| 123 |
*) |
*) |
| 124 |
|
|
| 125 |
|
val check_iface: (descr * descr) list -> descr -> bool |
| 126 |
|
|
| 127 |
type t |
type t |
| 128 |
val is_empty: t -> bool |
val is_empty: t -> bool |
| 129 |
val get: descr -> t |
val get: descr -> t |
| 142 |
|
|
| 143 |
|
|
| 144 |
module Int : sig |
module Int : sig |
| 145 |
|
val has_int : descr -> Big_int.big_int -> bool |
| 146 |
|
|
| 147 |
val any : descr |
val any : descr |
| 148 |
|
|
| 149 |
val is_int : descr -> bool |
val is_int : descr -> bool |
| 155 |
val has_atom : descr -> atom -> bool |
val has_atom : descr -> atom -> bool |
| 156 |
end |
end |
| 157 |
|
|
| 158 |
|
module Char : sig |
| 159 |
|
val has_char : descr -> Chars.Unichar.t -> bool |
| 160 |
|
end |
| 161 |
|
|
| 162 |
val normalize : descr -> descr |
val normalize : descr -> descr |
| 163 |
|
|
| 164 |
(** Subtyping and sample values **) |
(** Subtyping and sample values **) |