def view_length.go

lawful-arrays@0.1.0.0 · PROOF.bend:32

import Base
import lawful-arrays@0.1.0.0/defs.bend as D
import lawful-arrays@0.1.0.0/proof_tree.bend as P

32def view_length.go(-T: Data, -a: Array<T>, +d: Nat, hf: {D.full(T, a, d) == True{} : Bool},
33  m: P.Mirror(T, a)) -> {List.length(&2, T, D.view(T, a)) == Nat.pow(2n, d) : Nat}:
34  (t, +e) = m
35  %e : {List.length(&2, T, D.view(T, _)) == Nat.pow(2n, d) : Nat}
36  P.view_length(T, d, t, full_t(T, a, t, d, e, hf))