pf |
---|
Let x0 of type ι be given.
Let x1 of type ι be given.
Apply SNoLtLe_or with x0, x1, SNoLe x1 x0 leaving 4 subgoals.
The subproof is completed by applying H0.
The subproof is completed by applying H1.
Apply FalseE with SNoLe x1 x0.
Apply SNoLtE with x0, x1, False leaving 6 subgoals.
The subproof is completed by applying H0.
The subproof is completed by applying H1.
The subproof is completed by applying H4.
Let x2 of type ι be given.
Assume H12: SNoLev x2 ∈ x1.
Apply SNoLt_irref with x2.
Apply SNoLt_tra with x2, x1, x2 leaving 5 subgoals.
The subproof is completed by applying H5.
The subproof is completed by applying H1.
The subproof is completed by applying H5.
The subproof is completed by applying H10.
Apply SNoLt_tra with x1, SNo_extend1 x0, x2 leaving 5 subgoals.
The subproof is completed by applying H1.
Apply SNo_extend1_SNo with x0.
The subproof is completed by applying H0.
The subproof is completed by applying H5.
The subproof is completed by applying H3.
Apply binintersectE1 with SNoLev x0, SNoLev x1, SNoLev x2.
The subproof is completed by applying H6.
Apply SNoLtI3 with SNo_extend1 x0, x2 leaving 3 subgoals.
Apply SNo_extend1_SNoLev with x0, λ x3 x4 . SNoLev x2 ∈ x4 leaving 2 subgoals.
The subproof is completed by applying H0.
Apply ordsuccI1 with SNoLev x0, SNoLev x2.
The subproof is completed by applying L13.
Apply SNoEq_tra_ with SNoLev x2, SNo_extend1 x0, x0, x2 leaving 2 subgoals.
Apply SNoEq_antimon_ with SNoLev x0, SNoLev x2, SNo_extend1 x0, x0 leaving 3 subgoals.
Apply SNoLev_ordinal with x0.
The subproof is completed by applying H0.
The subproof is completed by applying L13.
Apply SNo_extend1_SNoEq with x0.
The subproof is completed by applying H0.
Apply SNoEq_sym_ with SNoLev x2, x2, x0.
The subproof is completed by applying H7.
Apply H11.
Apply SNoEq_E1 with SNoLev x0, SNo_extend1 x0, x0, SNoLev x2 leaving 3 subgoals.
Apply SNo_extend1_SNoEq with x0.
The subproof is completed by applying H0.
The subproof is completed by applying L13.
The subproof is completed by applying H14.
Apply FalseE with SNoEq_ (SNoLev x0) x0 x1 ⟶ SNoLev x0 ∈ x1 ⟶ False.
Apply ordsuccE with SNoLev x0, SNoLev x1, False leaving 3 subgoals.
The subproof is completed by applying H2.
Apply In_no2cycle with SNoLev x1, SNoLev x0 leaving 2 subgoals.
The subproof is completed by applying H6.
The subproof is completed by applying H5.
Apply In_irref with SNoLev x1.
Apply H6 with λ x2 x3 . x3 ∈ SNoLev x1.
The subproof is completed by applying H5.
Apply SNoLt_irref with x1.
Apply SNoLt_tra with x1, SNo_extend1 x0, x1 leaving 5 subgoals.
The subproof is completed by applying H1.
Apply SNo_extend1_SNo with x0.
The subproof is completed by applying H0.
The subproof is completed by applying H1.
The subproof is completed by applying H3.
Apply SNoLtI3 with SNo_extend1 x0, x1 leaving 3 subgoals.
Apply SNo_extend1_SNoLev with x0, λ x2 x3 . SNoLev x1 ∈ x3 leaving 2 subgoals.
The subproof is completed by applying H0.
Apply ordsuccI1 with SNoLev x0, SNoLev x1.
The subproof is completed by applying H5.
Apply SNoEq_tra_ with SNoLev x1, SNo_extend1 x0, x0, x1 leaving 2 subgoals.
Apply SNoEq_antimon_ with SNoLev x0, SNoLev x1, SNo_extend1 x0, x0 leaving 3 subgoals.
Apply SNoLev_ordinal with x0.
The subproof is completed by applying H0.
The subproof is completed by applying H5.
Apply SNo_extend1_SNoEq with x0.
The subproof is completed by applying H0.
The subproof is completed by applying H6.
Apply H7.
Apply SNoEq_E1 with SNoLev x0, SNo_extend1 x0, x0, SNoLev x1 leaving 3 subgoals.
Apply SNo_extend1_SNoEq with x0.
The subproof is completed by applying H0.
The subproof is completed by applying H5.
The subproof is completed by applying H8.
The subproof is completed by applying H4.
■
|
|