13 lines
430 B
Text
13 lines
430 B
Text
inductive Node (Data : Type) : Type where
|
|
| empty : Node Data
|
|
| node (children : Array (Node Data)) : Node Data
|
|
| leaf (data : Data) : Node Data
|
|
|
|
def Node.FixedBranching (n : Nat) : Node Data → Prop
|
|
| empty => True
|
|
| node children => children.size = n ∧ ∀ i, (children.get i).FixedBranching n
|
|
| leaf _ => True
|
|
|
|
structure MNode (Data : Type) (m : Nat) where
|
|
node : Node Data
|
|
fix_branching : node.FixedBranching m
|