2 * Copyright (c) 2015, Facebook, Inc.
5 * This source code is licensed under the MIT license found in the
6 * LICENSE file in the "hack" directory of this source tree.
12 module Reason
= Typing_reason
13 module Utils
= Typing_utils
15 val non
: env
-> Reason.t
-> locl_ty
-> approx
:Utils.approx
-> env
* locl_ty
17 val intersect
: env
-> r
:Reason.t
-> locl_ty
-> locl_ty
-> env
* locl_ty
19 val intersect_list
: env
-> Reason.t
-> locl_ty list
-> env
* locl_ty
21 val simplify_intersections
:
23 ?on_tyvar
:(env
-> Reason.t
-> int -> env
* locl_ty
) ->
28 env
-> Typing_reason.t
-> internal_type
-> locl_ty
-> env
* internal_type