val add_level2_ast_keyword: string -> unit (** non idempotent *)
val remove_level2_ast_keyword: string -> unit (** non idempotent *)
-(* val lookup_ligatures: string -> string list *)
+(** {2 Ligatures} *)
+
+val is_ligature_char: char -> bool
+val lookup_ligatures: string -> string list