{-# OPTIONS --without-K --safe #-}
open import Relation.Binary
module Relation.Binary.Reasoning.Preorder
{p₁ p₂ p₃} (P : Preorder p₁ p₂ p₃) where
open Preorder P
open import Relation.Binary.Reasoning.Base.Double isPreorder public
infixr 2 _≈⟨⟩_
_≈⟨⟩_ = _≡⟨⟩_
{-# WARNING_ON_USAGE _≈⟨⟩_
"Warning: _≈⟨⟩_ was deprecated in v1.0.
Please use _≡⟨⟩_ instead."
#-}