check for 0=1 in typechecker
This commit is contained in:
parent
195791e158
commit
858b5db530
5 changed files with 95 additions and 55 deletions
|
@ -28,6 +28,12 @@ data DimEq : Nat -> Type where
|
|||
%name DimEq eqs
|
||||
|
||||
|
||||
public export
|
||||
data IfConsistent : DimEq d -> a -> Type where
|
||||
Nothing : IfConsistent ZeroIsOne a
|
||||
Just : a -> IfConsistent (C eqs) a
|
||||
|
||||
|
||||
export %inline
|
||||
zeroEq : DimEq 0
|
||||
zeroEq = C [<]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue