def tree_balanced
import bendtorch-core@0.1.0.0/src/tensor/parallel.bend as Parallelimport Base
import bendtorch-core@0.1.0.0/src/storage/model.bend as Model
148# The one-thread tree is balanced at its depth.
149def tree_balanced(~P: Data, ~A: Type, ~B: Type, ~cell: @+p: P -> @+position: Nat -> A & B -> Bool -> F32 & (A & B),
150 +p: P, +depth: Nat, +count: Nat, +base: Nat, -state: A & B,
151 certified: Certified<(A & B), depth, tree(~P, ~A, ~B, ~cell, p, depth, count, base, state)>) ->
152 Model.Balanced(F32, depth, Pair.fst(Array<F32>, A & B, tree(~P, ~A, ~B, ~cell, p, depth, count, base, state))):
153 Certified{result, same, balanced} = certified
154 %same : Model.Balanced(F32, depth, Pair.fst(Array<F32>, A & B, _))
155 balanced