def normalized

stelliferous@0.0.2.0 · proofs/storage_certificate.bend:24

import Base
import stelliferous@0.0.2.0/proofs/storage_tree_model.bend as Tree

24def normalized(-Element: Data,depth: Nat,+tree: Tree.Tree<Element>) -> Tree.Tree<Element>:
25  match depth:
26    case 0n: Tree.Leaf{first(Element,tree)}
27    case 1n+ +rest:
28      Tree.Node{normalized(Element,rest,left(Element,tree)),normalized(Element,rest,right(Element,tree))}