Idris2/tests/idris2/operators/operators004/Test.idr
2024-02-24 12:36:44 +00:00

17 lines
194 B
Idris

infix 5 -:-
infix 5 :-:
(-:-) : a -> List a -> List a
(-:-) = (::)
(:-:) : a -> List a -> List a
(:-:) = (::)
test : List Nat
test = 4 -:- 3 :-: []
test2 : List Nat
test2 = 4 :-: 3 -:- []