Skip to content

Instantly share code, notes, and snippets.

@cppio
Created January 13, 2023 18:26
Show Gist options
  • Select an option

  • Save cppio/6a87f2dcb0f3c612b354b6fcda66bba5 to your computer and use it in GitHub Desktop.

Select an option

Save cppio/6a87f2dcb0f3c612b354b6fcda66bba5 to your computer and use it in GitHub Desktop.
variable {α : Sort u} {β : α → Sort v} (f g : (x : α) → β x)
def eqv := ∀ x, f x = g x
theorem eq_of_eqv (h : eqv f g) : f = g :=
congrArg (λ x => ·.lift (· x) (λ _ _ => (· x))) (Quot.sound h)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment