set p = |[0 ,0 ]|;
set q = |[1,1]|;
A1:
|[0 ,0 ]| `2 = 0
by EUCLID:56;
A2:
|[1,1]| `1 = 1
by EUCLID:56;
A3:
|[1,1]| `2 = 1
by EUCLID:56;
|[0 ,0 ]| `1 = 0
by EUCLID:56;
then
<*|[0 ,0 ]|,|[(|[0 ,0 ]| `1 ),(|[1,1]| `2 )]|,|[1,1]|*> is being_S-Seq
by A1, A2, A3, TOPREAL3:41;
hence
ex b1 being FinSequence of (TOP-REAL 2) st b1 is being_S-Seq
; verum