mirror of
https://github.com/Smaug123/agdaproofs
synced 2025-10-08 05:18:40 +00:00
12 lines
371 B
Agda
12 lines
371 B
Agda
{-# OPTIONS --safe --warning=error #-}
|
|
|
|
open import LogicalFormulae
|
|
|
|
module WithK where
|
|
|
|
typeCastEqual : {a : _} {A : Set a} {B : Set a} {el : A} (pr1 pr2 : A ≡ B) → (typeCast el pr1) ≡ (typeCast el pr2)
|
|
typeCastEqual {a} {A} {.A} {el} refl refl = refl
|
|
|
|
reflRefl : {a : _} {A : Set a} → {r s : A} → (pr1 pr2 : r ≡ s) → pr1 ≡ pr2
|
|
reflRefl refl refl = refl
|