]> Git — Sourcephile - haskell/symantic.git/blob - symantic/Language/Symantic/Helper/Data/Type/Equality.hs
Try the new Type and Term design against the actual needs.
[haskell/symantic.git] / symantic / Language / Symantic / Helper / Data / Type / Equality.hs
1 {-# LANGUAGE PolyKinds #-}
2 {-# LANGUAGE GADTs #-}
3 {-# OPTIONS_GHC -fno-warn-missing-methods #-}
4 module Language.Symantic.Helper.Data.Type.Equality where
5
6 -- | Like (:~:) but prove also that the kinds are equal.
7 data (:~~:) (a::ka) (b::kb) where
8 KRefl :: a :~~: a