Read.Productiontype t = productionval of_int : int -> tval to_int : t -> intval hash : t -> intval iter : (t -> unit) -> unitval fold : (t -> 'a -> 'a) -> 'a -> 'aval kind : t -> [ `REGULAR | `START ]val lhs : t -> nonterminalval rhs : t -> (symbol * identifier * Attribute.t list) arrayval attributes : t -> Attribute.t list