まあすでにやっている人は多いと思いますが、昨日突然思いついて、自然数の集合が非可算個あることをCoqで証明してみました。 Require Import Arith. Definition diag (F : nat -> (nat -> bool)) (n : nat) : bool := negb (F n n). Theorem nat_to_nat_uncountable : forall (F : nat -> (nat -> bool)), exists (g : nat -> bool), forall (n : nat), F n <> g. Proof. intro F. exists (diag F). intro n. intro H. absurd (F n n = diag F n). unfold diag. intro H1. destruct (F n n).