let X be non empty disjoint_with_NAT set ; :: thesis: for p being FinSequence of (FreeUnivAlgNSG ECIW-signature ,X) st 3 -tree p is Element of (FreeUnivAlgNSG ECIW-signature ,X) holds
ex C, I1, I2 being Element of (FreeUnivAlgNSG ECIW-signature ,X) st p = <*C,I1,I2*>
set S = ECIW-signature ;
set G = DTConUA ECIW-signature ,X;
set A = FreeUnivAlgNSG ECIW-signature ,X;
let p be FinSequence of (FreeUnivAlgNSG ECIW-signature ,X); :: thesis: ( 3 -tree p is Element of (FreeUnivAlgNSG ECIW-signature ,X) implies ex C, I1, I2 being Element of (FreeUnivAlgNSG ECIW-signature ,X) st p = <*C,I1,I2*> )
assume
3 -tree p is Element of (FreeUnivAlgNSG ECIW-signature ,X)
; :: thesis: ex C, I1, I2 being Element of (FreeUnivAlgNSG ECIW-signature ,X) st p = <*C,I1,I2*>
then reconsider I = 3 -tree p as Element of (FreeUnivAlgNSG ECIW-signature ,X) ;
per cases
( ex x being Element of X st I = root-tree x or ex n being Nat ex p being FinSequence of (FreeUnivAlgNSG ECIW-signature ,X) st
( n in Seg 4 & I = n -tree p & len p = ECIW-signature . n ) )
by Th56;
suppose
ex
n being
Nat ex
p being
FinSequence of
(FreeUnivAlgNSG ECIW-signature ,X) st
(
n in Seg 4 &
I = n -tree p &
len p = ECIW-signature . n )
;
:: thesis: ex C, I1, I2 being Element of (FreeUnivAlgNSG ECIW-signature ,X) st p = <*C,I1,I2*>then consider n being
Nat,
q being
FinSequence of
(FreeUnivAlgNSG ECIW-signature ,X) such that A2:
(
n in Seg 4 &
I = n -tree q &
len q = ECIW-signature . n )
;
A3:
(
n = 3 &
q = p )
by A2, TREES_4:15;
then
p = <*(p . 1),(p . 2),(p . 3)*>
by A2, Th54, FINSEQ_1:62;
then
rng p = {(p . 1),(p . 2),(p . 3)}
by FINSEQ_2:148;
then
(
p . 1
in {(p . 1),(p . 2),(p . 3)} &
p . 2
in {(p . 1),(p . 2),(p . 3)} &
p . 3
in {(p . 1),(p . 2),(p . 3)} &
{(p . 1),(p . 2),(p . 3)} c= the
carrier of
(FreeUnivAlgNSG ECIW-signature ,X) )
by ENUMSET1:def 1;
then reconsider C =
p . 1,
I1 =
p . 2,
I2 =
p . 3 as
Element of
(FreeUnivAlgNSG ECIW-signature ,X) ;
take
C
;
:: thesis: ex I1, I2 being Element of (FreeUnivAlgNSG ECIW-signature ,X) st p = <*C,I1,I2*>take
I1
;
:: thesis: ex I2 being Element of (FreeUnivAlgNSG ECIW-signature ,X) st p = <*C,I1,I2*>take
I2
;
:: thesis: p = <*C,I1,I2*>thus
p = <*C,I1,I2*>
by A3, A2, Th54, FINSEQ_1:62;
:: thesis: verum end; end;