12 lines
307 B
Text
12 lines
307 B
Text
set_option new_elaborator true
|
|
|
|
inductive inftree (A : Type)
|
|
| leaf : A → inftree
|
|
| node : (nat → inftree) → inftree
|
|
|
|
open inftree
|
|
|
|
definition szn.{l} {A : Type.{l+1}} (n : nat) : inftree A → inftree A → nat
|
|
| (leaf a) t2 := 1
|
|
| (node c) (leaf b) := 0
|
|
| (node c) (node d) := szn (c n) (d n)
|