def fresh

stelliferous@0.0.2.0 · proofs/storage_shape.bend:36

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

36def fresh(-Element: Data,+depth: Nat,+value: Element) -> Balanced(Element,depth,Tree.fresh(Element,depth,value)):
37  match depth:
38    case 0n: Unit{}
39    case 1n+ +rest: Both{fresh(Element,rest,value),fresh(Element,rest,value)}