Uninhabited instances
This commit is contained in:
parent
77e94a3033
commit
6dd18d89bd
1 changed files with 4 additions and 0 deletions
|
@ -74,7 +74,11 @@ data IsSubj : Qty -> Type where
|
||||||
SZero : IsSubj Zero
|
SZero : IsSubj Zero
|
||||||
SOne : IsSubj One
|
SOne : IsSubj One
|
||||||
|
|
||||||
|
export Uninhabited (IsSubj Any) where uninhabited _ impossible
|
||||||
|
|
||||||
public export
|
public export
|
||||||
data IsGlobal : Qty -> Type where
|
data IsGlobal : Qty -> Type where
|
||||||
GZero : IsGlobal Zero
|
GZero : IsGlobal Zero
|
||||||
GAny : IsGlobal Any
|
GAny : IsGlobal Any
|
||||||
|
|
||||||
|
export Uninhabited (IsGlobal One) where uninhabited _ impossible
|
||||||
|
|
Loading…
Reference in a new issue