russellTheorem = [st|
Show -ExAy(-F(y,y) <-> F(x,y))
    ExAy(-F(y,y)<->F(x,y))          :AS
    Show: -ExAy(-F(y,y) <-> F(x,y))
        Ay(-F(y,y)<->F(c_1,y))      :AS
        -F(c_1,c_1)<->F(c_1,c_1)    :UI 4
        Show:-F(c_1,c_1)
            F(c_1,c_1)              :AS
            F(c_1,c_1)->-F(c_1,c_1) :BC 5
            -F(c_1,c_1)             :MP 8 7
        :ID 7 9
        -F(c_1,c_1) -> F(c_1,c_1)   :BC 5
        F(c_1,c_1)                  :MP 11 6
        Show: -ExAy(-F(y,y) <-> F(x,y))
        :ID 6 12
    :ED 13 2 4
:ID 2 3|]
russellTheorem = [st|
Show -ExAy(-F(y,y) <-> F(x,y))
    ExAy(-F(y,y)<->F(x,y))          :AS
    Show: -ExAy(-F(y,y) <-> F(x,y))
        Ay(-F(y,y)<->F(c_1,y))      :AS
        -F(c_1,c_1)<->F(c_1,c_1)    :UI 4
        Show:-F(c_1,c_1)
            F(c_1,c_1)              :AS
            F(c_1,c_1)->-F(c_1,c_1) :BC 5
            -F(c_1,c_1)             :MP 8 7
        :ID 7 9
        -F(c_1,c_1) -> F(c_1,c_1)   :BC 5
        F(c_1,c_1)                  :MP 11 6
        Show: -ExAy(-F(y,y) <-> F(x,y))
        :ID 6 12
    :ED 13 2 4
:ID 2 3|]
russellTheorem = [st|
Show -ExAy(-F(y,y) <-> F(x,y))
    ExAy(-F(y,y)<->F(x,y))          :AS
    Show: -ExAy(-F(y,y) <-> F(x,y))
        Ay(-F(y,y)<->F(c_1,y))      :AS
        -F(c_1,c_1)<->F(c_1,c_1)    :UI 4
        Show:-F(c_1,c_1)
            F(c_1,c_1)              :AS
            F(c_1,c_1)->-F(c_1,c_1) :BC 5
            -F(c_1,c_1)             :MP 8 7
        :ID 7 9
        -F(c_1,c_1) -> F(c_1,c_1)   :BC 5
        F(c_1,c_1)                  :MP 11 6
        Show: -ExAy(-F(y,y) <-> F(x,y))
        :ID 6 12
    :ED 13 2 4
:ID 2 3|]