def fresh_model

stelliferous@0.0.2.0 · proofs/storage_witness.bend:45

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

45def fresh_model(-Element: Data,+depth: Nat,+value: Element) ->
46  {Array.new(Element,depth,value) == Tree.pack(Element,Tree.fresh(Element,depth,value)) : Array<Element>}:
47  match depth:
48    case 0n: {==}
49    case 1n+ +rest:
50      %fresh_model(Element,rest,value) : {Array.new(Element,1n+rest,value) == ANode{_,Tree.pack(Element,Tree.fresh(Element,rest,value))} : Array<Element>}
51      %fresh_model(Element,rest,value) : {Array.new(Element,1n+rest,value) == ANode{Array.new(Element,rest,value),_} : Array<Element>}
52      {==}