1
------------------------------------------------------------------------
2
-- The Agda standard library
4
-- Heterogeneous equality
5
------------------------------------------------------------------------
7
-- This file contains some core definitions which are reexported by
8
-- Relation.Binary.HeterogeneousEquality.
10
module Relation.Binary.HeterogeneousEquality.Core where
12
open import Relation.Binary.Core using (_≡_; refl)
14
------------------------------------------------------------------------
15
-- Heterogeneous equality
19
data _≅_ {a} {A : Set a} (x : A) : ∀ {b} {B : Set b} → B → Set where
22
------------------------------------------------------------------------
25
≅-to-≡ : ∀ {a} {A : Set a} {x y : A} → x ≅ y → x ≡ y