check for 0=1 in typechecker

This commit is contained in:
rhiannon morris 2023-02-19 17:51:44 +01:00
parent 195791e158
commit 858b5db530
5 changed files with 95 additions and 55 deletions

View file

@ -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 [<]