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
|
||||
SOne : IsSubj One
|
||||
|
||||
export Uninhabited (IsSubj Any) where uninhabited _ impossible
|
||||
|
||||
public export
|
||||
data IsGlobal : Qty -> Type where
|
||||
GZero : IsGlobal Zero
|
||||
GAny : IsGlobal Any
|
||||
|
||||
export Uninhabited (IsGlobal One) where uninhabited _ impossible
|
||||
|
|
Loading…
Reference in a new issue