diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-05-26 18:12:14 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-05-26 18:12:14 +0200 |
| commit | 06aa7498415ca98a795219a2b1460e812b6bafc6 (patch) | |
| tree | 7e6abfa81039608c59d1f53335afc68fd82b441a /lib | |
| parent | 9c8cdd5f6c1cb4bda2f8558c17df3ffe69c49264 (diff) | |
| parent | 8bd3e4eba54ace61f49a53b8ce74517de71006ec (diff) | |
Merge PR#655: Extra functions exported in EConstr
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/util.ml | 2 | ||||
| -rw-r--r-- | lib/util.mli | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index 0d2425f27..36282b2da 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -136,6 +136,8 @@ type ('a, 'b) union = ('a, 'b) CSig.union = Inl of 'a | Inr of 'b type 'a until = 'a CSig.until = Stop of 'a | Cont of 'a type ('a, 'b) eq = ('a, 'b) CSig.eq = Refl : ('a, 'a) eq +let sym : type a b. (a, b) eq -> (b, a) eq = fun Refl -> Refl + module Union = struct let map f g = function diff --git a/lib/util.mli b/lib/util.mli index cf8041a0d..56ec5394e 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -133,5 +133,7 @@ type 'a until = 'a CSig.until = Stop of 'a | Cont of 'a type ('a, 'b) eq = ('a, 'b) CSig.eq = Refl : ('a, 'a) eq +val sym : ('a, 'b) eq -> ('b, 'a) eq + val open_utf8_file_in : string -> in_channel (** Open an utf-8 encoded file and skip the byte-order mark if any. *) |