(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-03-04 23:39:28 CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-03-09 10:41:21 CET by Kim Nguyen>
*)
open Format
let top = "⊤"
let bottom = "⊥"
let dummy = "☠"
+let inverse = "⁻¹"
let double_right_arrow = "⇒"
let combining_overbar = "\204\133"
let combining_underbar = "\204\178"
(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-01-30 19:08:06 CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-03-09 10:41:32 CET by Kim Nguyen>
*)
exception InvalidUtf8Codepoint of int
val top : string
val bottom : string
val dummy : string
+val inverse : string
val double_right_arrow : string
val overline : string -> string
val underline : string -> string