Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 20 lines (17 sloc) 0.549 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
Add LoadPath "..".

Require Import Homotopy.

Lemma adjunction_product_hom (X Y Z : Type) : (X -> (Y -> Z)) > (X * Y -> Z).
Proof.
  set (left_to_right := fun (f : X -> (Y -> Z)) => fun (xy : X * Y) => let (x, y) := xy in f x y).
  set (right_to_left := fun (f : X * Y -> Z) => fun x => fun y => f (x, y)).
  exists left_to_right.
  apply hequiv_is_equiv with (g := right_to_left).
    intro y.
    apply funext; intro t.
    destruct t.
    apply idpath.
  intro x.
  apply funext; intro t.
  apply funext; intro t'.
  apply idpath.
Defined.
Something went wrong with that request. Please try again.