% Mizar problem: e4_8_1,fraenkel,223,6 
include('Axioms/SET010^2.ax').
thf(f1_s8_fraenkel_type,type,( f1_s8_fraenkel: $i )).
thf(f2_s8_fraenkel_type,type,( f2_s8_fraenkel: $i )).
thf(f3_s8_fraenkel_type,type,( f3_s8_fraenkel: $i > $i > $i )).
thf(m1_subset_1_type,type,( m1_subset_1: $i > $i > $o )).
thf(p1_s8_fraenkel_type,type,( p1_s8_fraenkel: $i > $i > $o )).
thf(p2_s8_fraenkel_type,type,( p2_s8_fraenkel: $i > $i > $o )).
thf(r1_tarski_type,type,( r1_tarski: $i > $i > $o )).
thf(reflexivity_r1_tarski,axiom,( ! [A: $i] : ! [B: $i] : ( r1_tarski @ A @ A ) ),file(tarski,r1_tarski)).
thf(dt_m1_subset_1,axiom,( $true ),file(subset_1,m1_subset_1)).
thf(dt_f1_s8_fraenkel,axiom,( $true ),file(fraenkel,f1_s8_fraenkel)).
thf(dt_f2_s8_fraenkel,axiom,( $true ),file(fraenkel,f2_s8_fraenkel)).
thf(dt_f3_s8_fraenkel,axiom,( $true ),file(fraenkel,f3_s8_fraenkel)).
thf(e3_8_1__fraenkel,axiom,( ! [A: $i] : ( ( m1_subset_1 @ A @ f1_s8_fraenkel ) => ! [B: $i] : ( ( m1_subset_1 @ B @ f2_s8_fraenkel ) => ( ( p1_s8_fraenkel @ A @ B ) => ( p2_s8_fraenkel @ A @ B ) ) ) ) ),file(fraenkel,e3_8_1__fraenkel)).
thf(s2_fraenkel,axiom,( ! [A: $i > $i > $i] : ! [B: $i > $i > $o] : ! [C: $i > $i > $o] : ! [D: $i] : ! [E: $i] : ( ! [F: $i] : ( ( m1_subset_1 @ F @ E ) => ! [G: $i] : ( ( m1_subset_1 @ G @ D ) => ( ( C @ F @ G ) => ( B @ F @ G ) ) ) ) => ( r1_tarski @ ( replSep2 @ ^ [F: $i] : ( m1_subset_1 @ F @ E ) @ ^ [F: $i] : ^ [G: $i] : ( m1_subset_1 @ G @ D ) @ ^ [F: $i] : ^ [G: $i] : ( A @ F @ G ) @ ^ [F: $i] : ^ [G: $i] : ( C @ F @ G ) ) @ ( replSep2 @ ^ [F: $i] : ( m1_subset_1 @ F @ E ) @ ^ [F: $i] : ^ [G: $i] : ( m1_subset_1 @ G @ D ) @ ^ [F: $i] : ^ [G: $i] : ( A @ F @ G ) @ ^ [F: $i] : ^ [G: $i] : ( B @ F @ G ) ) ) ) ),file(fraenkel,s2_fraenkel)).
thf(e4_8_1__fraenkel,conjecture,( r1_tarski @ ( replSep2 @ ^ [A: $i] : ( m1_subset_1 @ A @ f1_s8_fraenkel ) @ ^ [A: $i] : ^ [B: $i] : ( m1_subset_1 @ B @ f2_s8_fraenkel ) @ ^ [A: $i] : ^ [B: $i] : ( f3_s8_fraenkel @ A @ B ) @ ^ [A: $i] : ^ [B: $i] : ( p1_s8_fraenkel @ A @ B ) ) @ ( replSep2 @ ^ [A: $i] : ( m1_subset_1 @ A @ f1_s8_fraenkel ) @ ^ [A: $i] : ^ [B: $i] : ( m1_subset_1 @ B @ f2_s8_fraenkel ) @ ^ [A: $i] : ^ [B: $i] : ( f3_s8_fraenkel @ A @ B ) @ ^ [A: $i] : ^ [B: $i] : ( p2_s8_fraenkel @ A @ B ) ) ),file(fraenkel,e4_8_1__fraenkel)).
thf(sethood_m1_subset_1,axiom,( ! [A: $i] : ( sethood @ ^ [X: $i] : ( m1_subset_1 @ X @ A ) ) ),file(subset_1,m1_subset_1)).
