Idris2/tests/idris2/evaluator/evaluator001/Issue650.idr

%default total

isNat : Type -> Bool
isNat Nat = True
isNat (List Char) = False
isNat Int = False
isNat _ = False

trivialEquality : isNat Int = False
trivialEquality = Refl
[ fix #650 ] Lazier match in NPrimVal vs. ConCase (#655) 2020-09-09 19:17:07 +03:00			`%default total`

			`isNat : Type -> Bool`
			`isNat Nat = True`
[ fix #705 ] Normalise primitives in mkPat (#718) [ log ] prettier log for pats & clauses [ re #650 ] Even lazier [ fix #705 ] normalise primitives in mkPat [ refactor ] introduce getPrimitiveNames 2020-10-02 14:22:57 +03:00			`isNat (List Char) = False`
[ fix #650 ] Lazier match in NPrimVal vs. ConCase (#655) 2020-09-09 19:17:07 +03:00			`isNat Int = False`
			`isNat _ = False`

			`trivialEquality : isNat Int = False`
			`trivialEquality = Refl`