a type theory with equality based on setoids
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

5 lines
137 B

  1. let
  2. congComp : {A B : Type} (f : A -> B) {x : A}
  3. -> cong f (refl {A} {x}) == refl {B} {f x};
  4. congComp f = refl;
  5. congComp