projects
/
coq-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
restrict RNote to one hypothesis, major additions to ProofToStrong
[coq-hetmet.git]
/
src
/
HaskProofToLatex.v
diff --git
a/src/HaskProofToLatex.v
b/src/HaskProofToLatex.v
index
be5cb31
..
56cd747
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{??}}"
@@
-171,9
+171,10
@@
Section ToLatex.
Fixpoint nd_rule2latex {h}{c}(r:Rule h c) : string :=
match r with
| RURule _ _ _ _ r => nd_urule2latex r
Fixpoint nd_rule2latex {h}{c}(r:Rule h c) : string :=
match r with
| RURule _ _ _ _ r => nd_urule2latex r
- | RNote _ _ _ => "Note"
+ | RNote _ _ _ _ _ _ => "Note"
| RLit _ _ _ _ => "Lit"
| RVar _ _ _ _ => "Var"
| RLit _ _ _ _ => "Lit"
| RVar _ _ _ _ => "Var"
+ | RGlobal _ _ _ _ _ => "Global"
| RLam _ _ _ _ _ _ => "Abs"
| RCast _ _ _ _ _ _ _ => "Cast"
| RAbsT _ _ _ _ _ _ => "AbsT"
| RLam _ _ _ _ _ _ => "Abs"
| RCast _ _ _ _ _ _ _ => "Cast"
| RAbsT _ _ _ _ _ _ => "AbsT"