mirror of
https://github.com/anoma/juvix.git
synced 2024-12-14 08:27:03 +03:00
37 lines
587 B
Plaintext
37 lines
587 B
Plaintext
module Symbols;
|
||
open import Stdlib.Data.Nat;
|
||
|
||
╘⑽╛ : Nat;
|
||
╘⑽╛ := suc 9;
|
||
|
||
-- 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;
|