Require Import HaskKinds.
Require Import HaskWeakVars.
Require Import HaskWeakTypes.
-Require Import HaskCoreLiterals.
+Require Import HaskLiteralsAndTyCons.
Require Import HaskStrongTypes.
Require Import HaskStrong.
Require Import HaskProof.
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
+ | KindStar => "\star"
+ | KindArrow KindStar k2 => "\star\Rightarrow "+++kind2latex k2
+ | KindArrow k1 k2 => "("+++kind2latex k1+++")\Rightarrow "+++kind2latex k2
| KindUnliftedType => "\text{\tt{\#}}"
| KindUnboxedTuple => "\text{\tt{(\#)}}"
| KindArgType => "\text{\tt{??}}"