*_node types do not need to be private

src/core/term.mli

@@ -76,7 +76,7 @@ type pattern = private {
   pat_ty   : ty;
 }
 
-and pattern_node = private
+and pattern_node =
   | Pwild
   | Pvar of vsymbol
   | Papp of lsymbol * pattern list
@@ -117,7 +117,7 @@ type term = private {
   t_loc   : Loc.position option;
 }
 
-and term_node = private
+and term_node =
   | Tvar of vsymbol
   | Tconst of Number.constant
   | Tapp of lsymbol * term list

src/mlw/expr.mli

@@ -114,7 +114,7 @@ type expr = private {
   e_loc    : Loc.position option;
 }
 
-and expr_node = private
+and expr_node =
   | Evar    of pvsymbol
   | Econst  of Number.constant
   | Eexec   of cexp * cty
@@ -136,7 +136,7 @@ and cexp = private {
   c_cty  : cty;
 }
 
-and cexp_node = private
+and cexp_node =
   | Capp of rsymbol * pvsymbol list
   | Cpur of lsymbol * pvsymbol list
   | Cfun of expr