projects
/
tatoo.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4d66e0f
)
Add the inverse string (superscript -1) to the module.
author
Kim Nguyễn
<kn@lri.fr>
Sat, 9 Mar 2013 10:07:25 +0000
(11:07 +0100)
committer
Kim Nguyễn
<kn@lri.fr>
Sat, 9 Mar 2013 10:07:25 +0000
(11:07 +0100)
src/utils/pretty.ml
patch
|
blob
|
history
src/utils/pretty.mli
patch
|
blob
|
history
diff --git
a/src/utils/pretty.ml
b/src/utils/pretty.ml
index
1255b7b
..
1927216
100644
(file)
--- a/
src/utils/pretty.ml
+++ b/
src/utils/pretty.ml
@@
-14,7
+14,7
@@
(***********************************************************************)
(*
(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-03-0
4 23:39:28
CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-03-0
9 10:41:21
CET by Kim Nguyen>
*)
open Format
*)
open Format
@@
-99,6
+99,7
@@
let vee = "∨"
let top = "⊤"
let bottom = "⊥"
let dummy = "☠"
let top = "⊤"
let bottom = "⊥"
let dummy = "☠"
+let inverse = "⁻¹"
let double_right_arrow = "⇒"
let combining_overbar = "\204\133"
let combining_underbar = "\204\178"
let double_right_arrow = "⇒"
let combining_overbar = "\204\133"
let combining_underbar = "\204\178"
diff --git
a/src/utils/pretty.mli
b/src/utils/pretty.mli
index
42ec6cb
..
9064f8a
100644
(file)
--- a/
src/utils/pretty.mli
+++ b/
src/utils/pretty.mli
@@
-14,7
+14,7
@@
(***********************************************************************)
(*
(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-0
1-30 19:08:06
CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-0
3-09 10:41:32
CET by Kim Nguyen>
*)
exception InvalidUtf8Codepoint of int
*)
exception InvalidUtf8Codepoint of int
@@
-35,6
+35,7
@@
val vee : string
val top : string
val bottom : string
val dummy : string
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
val double_right_arrow : string
val overline : string -> string
val underline : string -> string