(|FlatCompanyInterface|)
(|FlatCompany_Method_Id|)
(|FlatCompanyMethodPredicateLifting|)
(|FlatCompanyMethodInvariantRewrite| (|inv_true| "" (GRIND) NIL NIL))
(|FlatCompanyMethodInvariantInherit|)
(|FlatCompanyBox|)
(|FlatCompanyBoxInherit|)
(|FlatCompanyBisimilarity|)
(|FlatCompanyBisimilarityRewrite|)
(|FlatCompanyPublicBisimilarityRewrite|)
(|FlatCompanyBisimilarityEquivalence|)
(|FlatCompanyBisimilarityEqRewrite|)
(|FlatCompanyPublicBisimilarityEqRewrite|)
(|FlatCompanyMorphism|)
(|FlatCompanyMorphismRewrite|)
(|FlatCompanySemantics|
 (|BudgetWithinDepartmentBudget?_TCC1| "" (SKOSIMP*)
  (("" (EXPAND "MoreProjectsHigherSalary?")
    (("" (FLATTEN)
      (("" (EXPAND "MoreEmployeesThenProjects?")
        (("" (FLATTEN)
          (("" (EXPAND "controls_multiplicity?")
            (("" (FLATTEN)
              (("" (HIDE -1 -4 -5)
                (("" (INST?)
                  (("" (ASSERT)
                    (("" (EXPAND "singleton?")
                      (("" (SKOSIMP*)
                        (("" (INST 1 "d!1")
                          (("1" (SKOSIMP* :PREDS? T)
                            (("1" (EXPAND "domain")
                              (("1"
                                (INST -3 "y!1" "d!1" "p!1")
                                (("1" (ASSERT) NIL NIL))
                                NIL))
                              NIL))
                            NIL)
                           ("2" (EXPAND "domain")
                            (("2" (PROPAX) NIL NIL)) NIL))
                          NIL))
                        NIL))
                      NIL))
                    NIL))
                  NIL))
                NIL))
              NIL))
            NIL))
          NIL))
        NIL))
      NIL))
    NIL))
  NIL))
(|FlatCompanyBasic|
 (|finiteness| "" (SKOLEM!)
  (("" (CASE "FlatCompanyAssert?(c!1)")
    (("1" (ASSERT)
      (("1" (EXPAND "FlatCompanyAssert?")
        (("1" (INST -1 "s!1")
          (("1" (FLATTEN -)
            (("1" (HIDE-ALL-BUT (-1 1))
              (("1" (EXPAND "finiteness?") (("1" (PROPAX) NIL NIL))
                NIL))
              NIL))
            NIL))
          NIL))
        NIL))
      NIL)
     ("2" (ASSERT) NIL NIL))
    NIL))
  NIL)
 (|worksin_living| "" (SKOLEM!)
  (("" (CASE "FlatCompanyAssert?(c!1)")
    (("1" (ASSERT)
      (("1" (EXPAND "FlatCompanyAssert?")
        (("1" (INST -1 "s!1")
          (("1" (FLATTEN -)
            (("1" (HIDE-ALL-BUT (-2 1))
              (("1" (EXPAND "worksin_living?")
                (("1" (CASE "finiteness?(c!1)(s!1)")
                  (("1" (ASSERT) (("1" (INST?) NIL NIL)) NIL)
                   ("2" (FLATTEN -) NIL NIL))
                  NIL))
                NIL))
              NIL))
            NIL))
          NIL))
        NIL))
      NIL)
     ("2" (ASSERT) NIL NIL))
    NIL))
  NIL)
 (|controls_funded| "" (SKOLEM!)
  (("" (CASE "FlatCompanyAssert?(c!1)")
    (("1" (ASSERT)
      (("1" (EXPAND "FlatCompanyAssert?")
        (("1" (INST -1 "s!1")
          (("1" (FLATTEN -)
            (("1" (HIDE-ALL-BUT (-3 1))
              (("1" (EXPAND "controls_funded?")
                (("1" (CASE "worksin_living?(c!1)(s!1)")
                  (("1" (ASSERT) (("1" (INST?) NIL NIL)) NIL)
                   ("2" (FLATTEN -) NIL NIL))
                  NIL))
                NIL))
              NIL))
            NIL))
          NIL))
        NIL))
      NIL)
     ("2" (ASSERT) NIL NIL))
    NIL))
  NIL)
 (|workson_living| "" (SKOLEM!)
  (("" (CASE "FlatCompanyAssert?(c!1)")
    (("1" (ASSERT)
      (("1" (EXPAND "FlatCompanyAssert?")
        (("1" (INST -1 "s!1")
          (("1" (FLATTEN -)
            (("1" (HIDE-ALL-BUT (-4 1))
              (("1" (EXPAND "workson_living?")
                (("1" (CASE "controls_funded?(c!1)(s!1)")
                  (("1" (ASSERT) (("1" (INST?) NIL NIL)) NIL)
                   ("2" (FLATTEN -) NIL NIL))
                  NIL))
                NIL))
              NIL))
            NIL))
          NIL))
        NIL))
      NIL)
     ("2" (ASSERT) NIL NIL))
    NIL))
  NIL)
 (|worksin_multiplicity| "" (SKOLEM!)
  (("" (CASE "FlatCompanyAssert?(c!1)")
    (("1" (ASSERT)
      (("1" (EXPAND "FlatCompanyAssert?")
        (("1" (INST -1 "s!1")
          (("1" (FLATTEN -)
            (("1" (HIDE-ALL-BUT (-5 1))
              (("1" (EXPAND "worksin_multiplicity?")
                (("1" (CASE "workson_living?(c!1)(s!1)")
                  (("1" (ASSERT) (("1" (INST?) NIL NIL)) NIL)
                   ("2" (FLATTEN -) NIL NIL))
                  NIL))
                NIL))
              NIL))
            NIL))
          NIL))
        NIL))
      NIL)
     ("2" (ASSERT) NIL NIL))
    NIL))
  NIL)
 (|controls_multiplicity| "" (SKOLEM!)
  (("" (CASE "FlatCompanyAssert?(c!1)")
    (("1" (ASSERT)
      (("1" (EXPAND "FlatCompanyAssert?")
        (("1" (INST -1 "s!1")
          (("1" (FLATTEN -)
            (("1" (HIDE-ALL-BUT (-6 1))
              (("1" (EXPAND "controls_multiplicity?")
                (("1" (CASE "worksin_multiplicity?(c!1)(s!1)")
                  (("1" (ASSERT) NIL NIL) ("2" (FLATTEN -) NIL NIL))
                  NIL))
                NIL))
              NIL))
            NIL))
          NIL))
        NIL))
      NIL)
     ("2" (ASSERT) NIL NIL))
    NIL))
  NIL)
 (|MoreEmployeesThenProjects| "" (SKOLEM!)
  (("" (CASE "FlatCompanyAssert?(c!1)")
    (("1" (ASSERT)
      (("1" (EXPAND "FlatCompanyAssert?")
        (("1" (INST -1 "s!1")
          (("1" (FLATTEN -)
            (("1" (HIDE-ALL-BUT (-7 1))
              (("1" (EXPAND "MoreEmployeesThenProjects?")
                (("1" (CASE "controls_multiplicity?(c!1)(s!1)")
                  (("1" (ASSERT) (("1" (INST?) NIL NIL)) NIL)
                   ("2" (FLATTEN -) NIL NIL))
                  NIL))
                NIL))
              NIL))
            NIL))
          NIL))
        NIL))
      NIL)
     ("2" (ASSERT) NIL NIL))
    NIL))
  NIL)
 (|MoreProjectsHigherSalary| "" (SKOLEM!)
  (("" (CASE "FlatCompanyAssert?(c!1)")
    (("1" (ASSERT)
      (("1" (EXPAND "FlatCompanyAssert?")
        (("1" (INST -1 "s!1")
          (("1" (FLATTEN -)
            (("1" (HIDE-ALL-BUT (-8 1))
              (("1" (EXPAND "MoreProjectsHigherSalary?")
                (("1" (CASE "MoreEmployeesThenProjects?(c!1)(s!1)")
                  (("1" (ASSERT) (("1" (INST?) NIL NIL)) NIL)
                   ("2" (FLATTEN -) NIL NIL))
                  NIL))
                NIL))
              NIL))
            NIL))
          NIL))
        NIL))
      NIL)
     ("2" (ASSERT) NIL NIL))
    NIL))
  NIL)
 (|BudgetWithinDepartmentBudget_TCC1| "" (SKOSIMP*)
  (("" (EXPAND "FlatCompanyAssert?")
    (("" (INST?)
      (("" (FLATTEN)
        (("" (HIDE-ALL-BUT (-1 -7 1))
          (("" (EXPAND "controls_multiplicity?")
            (("" (FLATTEN)
              (("" (INST?)
                (("" (ASSERT)
                  (("" (EXPAND "singleton?")
                    (("" (SKOSIMP*)
                      (("" (INST 1 "d!1")
                        (("1" (SKOSIMP* :PREDS? T)
                          (("1" (EXPAND "domain")
                            (("1" (INST -5 "y!1" "d!1" "p!1")
                              (("1" (ASSERT) NIL NIL)) NIL))
                            NIL))
                          NIL)
                         ("2" (EXPAND "domain")
                          (("2" (PROPAX) NIL NIL)) NIL))
                        NIL))
                      NIL))
                    NIL))
                  NIL))
                NIL))
              NIL))
            NIL))
          NIL))
        NIL))
      NIL))
    NIL))
  NIL)
 (|BudgetWithinDepartmentBudget| "" (SKOLEM!)
  (("" (CASE "FlatCompanyAssert?(c!1)")
    (("1" (ASSERT)
      (("1" (EXPAND "FlatCompanyAssert?")
        (("1" (INST -1 "s!1")
          (("1" (FLATTEN -)
            (("1" (HIDE-ALL-BUT (-9 1))
              (("1" (EXPAND "BudgetWithinDepartmentBudget?")
                (("1" (CASE "MoreProjectsHigherSalary?(c!1)(s!1)")
                  (("1" (ASSERT) (("1" (INST?) NIL NIL)) NIL)
                   ("2" (FLATTEN -) NIL NIL))
                  NIL))
                NIL))
              NIL))
            NIL))
          NIL))
        NIL))
      NIL)
     ("2" (ASSERT) NIL NIL))
    NIL))
  NIL)
 (|EmployeeInControllingDepartment| "" (SKOLEM!)
  (("" (CASE "FlatCompanyAssert?(c!1)")
    (("1" (ASSERT)
      (("1" (EXPAND "FlatCompanyAssert?")
        (("1" (INST -1 "s!1")
          (("1" (FLATTEN -)
            (("1" (HIDE-ALL-BUT (-10 1))
              (("1" (EXPAND "EmployeeInControllingDepartment?")
                (("1" (CASE "BudgetWithinDepartmentBudget?(c!1)(s!1)")
                  (("1" (ASSERT) (("1" (INST?) NIL NIL)) NIL)
                   ("2" (FLATTEN -) NIL NIL))
                  NIL))
                NIL))
              NIL))
            NIL))
          NIL))
        NIL))
      NIL)
     ("2" (ASSERT) NIL NIL))
    NIL))
  NIL))
(|FlatCompanyFullInvariant|)
(|FlatCompanyFullBisimulation|)
(|FlatCompanyFinality|
  (|struct_coreduce_TCC1| "1"
       (SKOLEM-TYPEPRED) (( "1"  (EXPAND*
      "nonempty?" "empty?" "member" "FlatCompany_final?"
      "FlatCompany_morphism_exists?") (( "1"  (FLATTEN) (( "1"  (HIDE-ALL-BUT
       (-3 -5) ) (( "1"  (INST?) (( "1"  (ASSERT) (( "1"  (SKOSIMP) (( "1" 
      (INST?) )))))))))))))))
 (|coreduce_TCC1| "" (SKOLEM-TYPEPRED)
  (("" (EXPAND "FlatCompanyMethodAssert?")
    (("" (REPLACE-ETA "m_tuple!1") NIL NIL)) NIL))
  NIL))
(|FlatCompanyLoose|
 (|FlatCompany_lc_TCC1| "" (LEMMA "loose_coalgebra")
  (("" (SKOSIMP*) (("" (INST?) NIL NIL)) NIL)) NIL))
(|FlatCompany|)

