array 1 Doc

array_el Def a[i] == 2of(2of(a))(i)

Thm* i:, j:{i...}, a:[T]Array{i..j}, k:{i..j}. a[k] T

Thm* a:[T]Array , i:{a.l..a.u}. a[i] T

pi2 Def 2of(t) == t.2

Thm* B:(AType), p:a:AB(a). 2of(p) B(1of(p))