| Some `LeftToRight -> "> "
| Some `RightToLeft -> "< "
-let pp_metadata =
- function
- | Dependency buri -> sprintf "dependency %s" buri
- | Baseuri buri -> sprintf "baseuri %s" buri
-
let pp_command = function
| Include (_,path) -> "include " ^ path
| Qed _ -> "qed"
(pp_associativity assoc)
(pp_precedence prec)
(pp_l2_pattern l2_pattern)
- | Metadata (_, m) -> sprintf "metadata %s" (pp_metadata m)
| Render _
| Dump _ -> assert false (* ZACK: debugging *)
| Render _
| Dump _
| Interpretation _
- | Metadata _
| Notation _
| Obj _ -> assert false (* not implemented *)