From Undecidability.L.Computability Require Export Scott Acceptability.
(* * The self halting problem is not L-acceptable *)
Definition self_diverging (s : term) := ~ pi s s.
Definition self_diverging_comb := conj self_diverging proc.
(* * Rice's Theorem *)

Lemma Rice1 (M : term -> Prop) : (M <=1 proc) ->
(forall (s t : term), proc t -> M s -> (forall u, pi s u <-> pi t u) -> M t) ->
(exists p, proc p /\ ~ M p) -> (exists p, proc p /\ M p) ->
M (lam Omega) -> ~ lacc M.