projects
/
coq-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
3d56944
)
formatting
author
Adam Megacz
<megacz@cs.berkeley.edu>
Tue, 15 Mar 2011 01:50:20 +0000
(18:50 -0700)
committer
Adam Megacz
<megacz@cs.berkeley.edu>
Tue, 15 Mar 2011 01:50:20 +0000
(18:50 -0700)
src/HaskProofToLatex.v
patch
|
blob
|
history
diff --git
a/src/HaskProofToLatex.v
b/src/HaskProofToLatex.v
index
be5cb31
..
25e2523
100644
(file)
--- a/
src/HaskProofToLatex.v
+++ b/
src/HaskProofToLatex.v
@@
-26,9
+26,9
@@
Section ToLatex.
Fixpoint kind2latex (k:Kind) : string :=
match k with
Fixpoint kind2latex (k:Kind) : string :=
match k with
- | KindStar => "\star"
- | KindArrow KindStar k2 => "\star\Rightarrow "+++kind2latex k2
- | KindArrow k1 k2 => "("+++kind2latex k1+++")\Rightarrow "+++kind2latex k2
+ | ★ => "\star"
+ | ★ ⇛ k2 => "\star\Rightarrow "+++kind2latex k2
+ | k1 ⇛ k2 => "("+++kind2latex k1+++")\Rightarrow "+++kind2latex k2
| KindUnliftedType => "\text{\tt{\#}}"
| KindUnboxedTuple => "\text{\tt{(\#)}}"
| KindArgType => "\text{\tt{??}}"
| KindUnliftedType => "\text{\tt{\#}}"
| KindUnboxedTuple => "\text{\tt{(\#)}}"
| KindArgType => "\text{\tt{??}}"