Fix minor problem in .ocamlinit

.ocamlinit

@@ -23,8 +23,8 @@ type pp = P of vv * string | N of string * vv
 and vv = V of string
 
 let mk_pp = function
-  |P(V alpha,t) -> Tallying.CS.singleton (Tallying.Pos (`Var alpha,parse_typ t))
-  |N(t,V alpha) -> Tallying.CS.singleton (Tallying.Neg (parse_typ t,`Var alpha))
+  |P(V alpha,t) -> Tallying.CS.singleton (Tallying.Pos (Var.mk alpha,parse_typ t))
+  |N(t,V alpha) -> Tallying.CS.singleton (Tallying.Neg (parse_typ t,Var.mk alpha))
 
 let mk_prod l =
     List.fold_left (fun acc2 c ->

types/types.mli

@@ -402,3 +402,5 @@ module Tallying : sig
 
 end
 
+  val appl : t -> t -> (Var.var * t) list list
+