1
1
mirror of https://github.com/anoma/juvix.git synced 2024-12-14 08:27:03 +03:00
juvix/tests/positive/Symbols.juvix

37 lines
590 B
Plaintext
Raw Normal View History

module Symbols;
open import Stdlib.Data.Nat;
╘⑽╛ : Nat;
╘⑽╛ := suc nine;
-- no - function!?
- : Nat -> Nat -> Nat;
- := (+);
- : Nat -> Nat -> Nat;
- := (-);
* : Nat -> Nat -> Nat;
* := (*);
infixl 6 ;
: Nat -> Nat -> Nat;
:= -;
infixl 7 ·;
· : Nat -> Nat -> Nat;
· := *;
0 : Nat;
0 := ╘⑽╛ ╘⑽╛ · zero;
主功能 : Nat;
主功能 := 0;
axiom = : Type;
K : Nat → Nat → Nat;
K =a@zero (=) := =a · =;
K =a@(suc =) == := = · ==;
end;