FStar_All.ml, FStar_Compiler_Effect.ml: Remove some footguns and unus…

…ed code

ocaml/fstar-lib/FStar_All.ml

@@ -1,9 +1,7 @@
 exception Failure = Failure
 let failwith x = raise (Failure x)
 let exit i = exit (Z.to_int i)
-let op_Bar_Greater (x : 'a) (f : ('a -> 'b)) : 'b = f x
-let op_Less_Bar  (f : ('a -> 'b)) (x : 'a) : 'b = f x
-let pipe_right a f = f a
-let pipe_left f a = f a
-let try_with f1 f2 = try f1 () with | e -> f2 e
-
+(* Not used: handled specially by extraction. If used,
+   you will get all sorts of weird failures (e.g. an incomplete match
+   on f2!). *)
+(* let try_with f1 f2 = try f1 () with | e -> f2 e *)

ocaml/fstar-lib/FStar_Compiler_Effect.ml

@@ -1,6 +1,3 @@
-let op_Bar_Greater (x : 'a) (f : ('a -> 'b)) : 'b = f x
-let op_Less_Bar  (f : ('a -> 'b)) (x : 'a) : 'b = f x
-
 type 'a ref' = 'a ref[@@deriving yojson,show]
 type 'a ref = 'a ref'[@@deriving yojson,show]
 
@@ -9,6 +6,9 @@ let op_Colon_Equals x y = x := y
 let alloc x = ref x
 let raise = raise
 let exit i = exit (Z.to_int i)
-let try_with f1 f2 = try f1 () with | e -> f2 e
 exception Failure = Failure
 let failwith x = raise (Failure x)
+(* Not used: handled specially by extraction. If used,
+   you will get all sorts of weird failures (e.g. an incomplete match
+   on f2!). *)
+(* let try_with f1 f2 = try f1 () with | e -> f2 e *)