v		input view
w		argument view

Intersect constructs the set intersection of v and w.

set v [view A def {a b c}]
set w [view A def {a c d}]

view $v intersect $w

	A
0	a
1	c