tauto.
Qed.
(*-- Intuition: Tactics for simplifications of buts, based on LJT calcul. Ref      : Cesar Munoz, Rapport de stage de DEA 1993. --*)

(* Specifications: *)
Theorem Intu :
(forall x : nat, P x) /\ B -> (forall y : nat, P y) /\ P 0 \/ B /\ P 0.