From 565bd853299f8eec69326fd4a59dff8f7488fe61 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 30 Oct 2007 13:09:46 +0000 Subject: math wiki example --- examples/math/Math.gf | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 examples/math/Math.gf (limited to 'examples/math/Math.gf') diff --git a/examples/math/Math.gf b/examples/math/Math.gf new file mode 100644 index 000000000..d5cbe9196 --- /dev/null +++ b/examples/math/Math.gf @@ -0,0 +1,39 @@ +abstract Math = { + +flags startcat = Section ; + +cat + Section ; Label ; Context ; Typ ; Obj ; Prop ; Proof ; Var ; + +fun + SDefObj : Label -> Context -> Obj -> Typ -> Obj -> Section ; + SDefProp : Label -> Context -> Prop -> Prop -> Section ; + SAxiom : Label -> Context -> Prop -> Section ; + STheorem : Label -> Context -> Prop -> Proof -> Section ; + + CEmpty : Context ; + CObj : Var -> Typ -> Context -> Context ; + CProp : Prop -> Context -> Context ; + + OVar : Var -> Obj ; + + LNone : Label ; + LString : String -> Label ; + VString : String -> Var ; + + PLink : Proof ; + +-- lexicon + + Set : Typ ; + Nat : Typ ; + Zero : Obj ; + Succ : Obj -> Obj ; + One : Obj ; + Two : Obj ; + Even : Obj -> Prop ; + Odd : Obj -> Prop ; + Prime : Obj -> Prop ; + Divisible : Obj -> Obj -> Prop ; + +} -- cgit v1.2.3