(* This file contains tactics that are similar to ssreflect tactics. * The tactics here use numbers to refer to hypotheses to the right * of the entailment. *)
Section indexed.
Context {L : Type}
{ILO : ILogicOps L}
{IL : ILogic L}.

(* Copy *)
Theorem copy_top
: forall A B C : L,
A |-- B -->> B -->> C ->
A |-- B -->> C.