2022-07-18 14:32:43 +03:00
|
|
|
|
module Symbols;
|
|
|
|
|
open import Stdlib.Data.Nat;
|
|
|
|
|
|
2022-09-30 03:55:32 +03:00
|
|
|
|
╘⑽╛ : Nat;
|
|
|
|
|
╘⑽╛ := suc nine;
|
2022-07-18 14:32:43 +03:00
|
|
|
|
|
2023-01-11 18:43:16 +03:00
|
|
|
|
-- no - function!?
|
|
|
|
|
- : Nat -> Nat -> Nat;
|
|
|
|
|
- := (+);
|
2022-07-18 14:32:43 +03:00
|
|
|
|
|
2022-09-30 03:55:32 +03:00
|
|
|
|
(-) : Nat -> Nat -> Nat;
|
|
|
|
|
(-) := (-);
|
2022-07-18 14:32:43 +03:00
|
|
|
|
|
2022-09-30 03:55:32 +03:00
|
|
|
|
(*) : Nat -> Nat -> Nat;
|
|
|
|
|
(*) := (*);
|
2022-07-18 14:32:43 +03:00
|
|
|
|
|
|
|
|
|
infixl 6 -;
|
2022-09-30 03:55:32 +03:00
|
|
|
|
- : Nat -> Nat -> Nat;
|
|
|
|
|
- := (-);
|
2022-07-18 14:32:43 +03:00
|
|
|
|
|
|
|
|
|
infixl 7 ·;
|
2022-09-30 03:55:32 +03:00
|
|
|
|
· : Nat -> Nat -> Nat;
|
|
|
|
|
· := (*);
|
2022-07-18 14:32:43 +03:00
|
|
|
|
|
2022-09-30 03:55:32 +03:00
|
|
|
|
(0) : Nat;
|
|
|
|
|
(0) := ╘⑽╛ - ╘⑽╛ · zero;
|
2022-07-18 14:32:43 +03:00
|
|
|
|
|
2022-09-30 03:55:32 +03:00
|
|
|
|
主功能 : Nat;
|
|
|
|
|
主功能 := (0);
|
2023-01-11 18:43:16 +03:00
|
|
|
|
|
|
|
|
|
axiom = : Type;
|
|
|
|
|
|
|
|
|
|
K : Nat → Nat → Nat;
|
|
|
|
|
K =a@zero (=) := =a · =;
|
|
|
|
|
K =a@(suc =) == := = · ==;
|
2022-09-30 03:55:32 +03:00
|
|
|
|
end;
|