(* This file contains lemmas used by other pieces of the automation, * e.g. ChargeCore.Tactics.Tauto. It is a separate file so that * it does not pollute the global namespace when those modules are imported. *)
Require Export ChargeCore.Logics.ILogic.
Section logic.
Context {L : Type}.
Context {ILO : ILogicOps L}.
Context {IL : ILogic L}.

Theorem lcut : forall P Q R : L,
P |-- R ->
P |-- R -->> Q ->
P |-- Q.