Require Import HaskKinds.
Require Import HaskWeakVars.
Require Import HaskWeakTypes.
-Require Import HaskCoreLiterals.
+Require Import HaskLiteralsAndTyCons.
Require Import HaskStrongTypes.
Require Import HaskStrong.
Require Import HaskProof.
Require Import HaskCoreTypes.
-(* escapifies any characters which might cause trouble for LaTeX *)
-Variable sanitizeForLatex : string -> string. Extract Inlined Constant sanitizeForLatex => "sanitizeForLatex".
-
Open Scope string_scope.
Section ToLatex.
Fixpoint kind2latex (k:Kind) : string :=
match k with
- | KindType => "\star"
- | KindTypeFunction KindType k2 => "\star\Rightarrow "+++kind2latex k2
- | KindTypeFunction 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{??}}"
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"
+ | RGlobal _ _ _ _ _ => "Global"
| RLam _ _ _ _ _ _ => "Abs"
| RCast _ _ _ _ _ _ _ => "Cast"
| RAbsT _ _ _ _ _ _ => "AbsT"
| RApp _ _ _ _ _ _ _ => "App"
| RLet _ _ _ _ _ _ _ => "Let"
| RBindingGroup _ _ _ _ _ _ => "RBindingGroup"
- | RLetRec _ _ _ _ _ => "LetRec"
+ | RLetRec _ _ _ _ _ _ => "LetRec"
| RCase _ _ _ _ _ _ _ _ => "Case"
| RBrak _ _ _ _ _ _ => "Brak"
| REsc _ _ _ _ _ _ => "Esc"