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;