def length_snoc

bendtorch-core@0.1.0.0 · src/autograd/reduce_fold_PROOF.bend:57

import Base

57def length_snoc(+values: List<&2, F32>, +word: F32) ->
58  {List.length(&2, F32, List.append(&2, F32, values, [word])) == 1n+List.length(&2, F32, values) : Nat}:
59  match values:
60    case Nil{}:
61      {==}
62    case +value <> +rest:
63      Equal.cong(Nat, Nat, n => 1n+n, List.length(&2, F32, List.append(&2, F32, rest, [word])), 1n+List.length(&2, F32, rest),
64        length_snoc(rest, word))