Expose infix viewing, replacement, mapping, and composition

fieldglass.mli

@@ -11,3 +11,11 @@ val _2 : ('c * 'a, 'c * 'b, 'a, 'b) lens
 val _id : ('a, 'b, 'a, 'b) lens
 val _hd : ('a list, 'a) lens'
 val _tl : ('a list, 'a list) lens'
+
+module Infix : sig
+  val ( ^. ) : 's -> ('s, 't, 'a, 'b) lens -> 'a
+  val ( ^~ ) : ('s, 't, 'a, 'b) lens -> 'b -> 's -> 't
+  val ( ^% ) : ('s, 't, 'a, 'b) lens -> ('a -> 'b) -> 's -> 't
+  val ( ^> ) : ('s, 't, 'a, 'b) lens -> ('a, 'b, 'c, 'd) lens -> ('s, 't, 'c, 'd) lens
+  val ( ^< ) : ('a, 'b, 'c, 'd) lens -> ('s, 't, 'a, 'b) lens -> ('s, 't, 'c, 'd) lens
+end