------------------------------------------------------------------------
-- The Agda standard library
--
-- The basic code for equational reasoning with a single relation
------------------------------------------------------------------------

{-# OPTIONS --without-K --safe #-}

open import Relation.Binary

module Relation.Binary.Reasoning.Base.Single
  {a } {A : Set a} (_∼_ : Rel A )
  (refl : Reflexive _∼_) (trans : Transitive _∼_)
  where

open import Relation.Binary.Reasoning.Base.Partial _∼_ trans public

infix  3 _∎

_∎ :  x  x IsRelatedTo x
x  = x ∎⟨ refl