diff options
| author | Alasdair Armstrong | 2017-11-16 15:26:31 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2017-11-16 15:26:31 +0000 |
| commit | 6921b3107088f43b38eadcd841384deff00e340e (patch) | |
| tree | db28456bfd14b76aac2776920ec402b83a086625 /src/ast_util.mli | |
| parent | 9a5bd2079a5fe42bde4c207851c2c3b1fd0035b7 (diff) | |
Remove unused Typ_wild constructor
Diffstat (limited to 'src/ast_util.mli')
| -rw-r--r-- | src/ast_util.mli | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/ast_util.mli b/src/ast_util.mli index a41f3737..8f8a2889 100644 --- a/src/ast_util.mli +++ b/src/ast_util.mli @@ -131,8 +131,14 @@ val nc_true : n_constraint val nc_false : n_constraint val nc_set : kid -> int list -> n_constraint +(* Negate a n_constraint. Note that there's no NC_not constructor, so + this flips all the inequalites a the n_constraint leaves and uses + de-morgans to switch and to or and vice versa. *) +val nc_negate : n_constraint -> n_constraint + val quant_items : typquant -> quant_item list val quant_kopts : typquant -> kinded_id list +val quant_split : typquant -> kinded_id list * n_constraint list (* Functions to map over the annotations in sub-expressions *) val map_exp_annot : ('a annot -> 'b annot) -> 'a exp -> 'b exp @@ -247,6 +253,9 @@ val has_effect : effect -> base_effect_aux -> bool val effect_set : effect -> BESet.t +val equal_effects : effect -> effect -> bool +val union_effects : effect -> effect -> effect + val tyvars_of_nexp : nexp -> KidSet.t val tyvars_of_typ : typ -> KidSet.t |