diff options
-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. *) |