diff --git a/isabelle/putnam_1969_b2.thy b/isabelle/putnam_1969_b2.thy index 9cd4c4cd..9c4f2d4f 100644 --- a/isabelle/putnam_1969_b2.thy +++ b/isabelle/putnam_1969_b2.thy @@ -6,11 +6,10 @@ begin definition putnam_1969_b2_solution :: bool where "putnam_1969_b2_solution \ undefined" (* False *) theorem putnam_1969_b2: - fixes G (structure) - and h :: "nat \ bool" - assumes hG: "group G \ finite (carrier G)" - defines "h \ (\n::nat. (\H::nat\('a set). (\i::nat\{0..(n-1)}. subgroup (H i) G \ H i \ carrier G) \ (carrier G = (\i::nat\{0..(n-1)}. H i))))" - shows "\(h 2) \ ((\(h 3)) \ putnam_1969_b2_solution)" + fixes P :: "nat \ bool" + defines "P \ \ n. \ G. group G \ finite (carrier G) \ + (\ H. (\ i\{0.. (H i) \ carrier G) \ (carrier G \ (\i::nat\{0.. (P 3 \ putnam_1969_b2_solution)" sorry end