diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-05-19 21:14:36 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-05-19 21:21:34 +0200 |
| commit | 6ceaf0176b2a61cd2ed7b358af1e34349a8041ce (patch) | |
| tree | 54a83dd8725a4158cb1bda76e4cb3564852ebf3e | |
| parent | 98a927aefb6df05a957d94cf2fd22d88e9e6c6b6 (diff) | |
Moving "sym" on "eq" type to lib/util.ml.
| -rw-r--r-- | engine/eConstr.ml | 2 | ||||
| -rw-r--r-- | lib/util.ml | 2 | ||||
| -rw-r--r-- | lib/util.mli | 2 |
3 files changed, 4 insertions, 2 deletions
diff --git a/engine/eConstr.ml b/engine/eConstr.ml index 54d3ce6cf..0771c8354 100644 --- a/engine/eConstr.ml +++ b/engine/eConstr.ml @@ -731,8 +731,6 @@ let it_mkLambda_or_LetIn t ctx = List.fold_left (fun c d -> mkLambda_or_LetIn d open Context open Environ -let sym : type a b. (a, b) eq -> (b, a) eq = fun Refl -> Refl - let cast_rel_decl : type a b. (a,b) eq -> (a, a) Rel.Declaration.pt -> (b, b) Rel.Declaration.pt = fun Refl x -> x 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. *) |