sat_thm_ax :: [Named CASLFORMULA] -> CASLFORMULA
sat_thm_ax forms = final_form
     where forms' = map (free_formula . sentence)
             $ filter (no_gen . sentence) forms
           final_form = conjunct forms'

-- | checks if the formula is a sort generation constraint
sat_thm_ax :: [Named CASLFORMULA] -> CASLFORMULA
sat_thm_ax forms = final_form
     where forms' = map (free_formula . sentence)
             $ filter (no_gen . sentence) forms
           final_form = conjunct forms'

-- | checks if the formula is a sort generation constraint
sat_thm_ax forms = final_form
     where forms' = map (free_formula . sentence)
             $ filter (no_gen . sentence) forms
           final_form = conjunct forms'

-- | checks if the formula is a sort generation constraint