lean2/tests/lean/sig5.lean

variable vec : Nat → Type
definition vec_with_len := sig len, vec len
variable n : Nat
variable v : vec n
check tuple n, v
check (show vec_with_len, from tuple n, v)
check (let v2 : vec_with_len := tuple n, v
       in v2)
check (tuple vec_with_len : n, v)