def facts_cells

bendtorch-core@0.1.0.0 · src/tensor/parallel_proofs.bend:50

import Base

50def facts_cells(~P: Data, ~A: Type, ~B: Type, ~cell: @+p: P -> @+position: Nat -> (A & B) -> Bool -> F32 & (A & B),
51  +p: P, -start: (A & B), +depth: Nat, +count: Nat, +base: Nat, -result: Array<F32> & (A & B),
52  -facts: Fact<TreeFacts(~P, ~A, ~B, ~cell, p, start, depth, count, base, result)>) ->
53  Fact<Cells(~P, ~A, ~B, ~cell, p, start, depth, count, base, Pair.fst(Array<F32>, (A & B), result))>:
54  Fact{Pair.snd({Pair.snd(Array<F32>, (A & B), result) == start : (A & B)},
55    Cells(~P, ~A, ~B, ~cell, p, start, depth, count, base, Pair.fst(Array<F32>, (A & B), result)),
56    {\{Fact: q => q} : Fact<(TreeFacts(~P, ~A, ~B, ~cell, p, start, depth, count, base, result))> ->
57      TreeFacts(~P, ~A, ~B, ~cell, p, start, depth, count, base, result)}(facts))}