diff options
| author |  Jasper Hugunin <jasperh@cs.washington.edu> | 2017-12-09 18:49:31 +0900 |
|---|---|---|
| committer | Jasper Hugunin <jasperh@cs.washington.edu> | 2017-12-09 18:49:31 +0900 |
| commit | 94468c0572eb50ea39a07f9a9ed93bc7a8a2f4b6 (patch) | |
| tree | 2cbf48ba482a0e72aaad05c15aaa5a893aca7f7d /theories | |
| parent | 319a3c230e9f9ec5a8a5bea9e07b6b8d17444ac9 (diff) | |
Remove most uses of function extensionality in Program.Combinators
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/Program/Combinators.v | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/theories/Program/Combinators.v b/theories/Program/Combinators.v index 90db10ef1..237d878bf 100644 --- a/theories/Program/Combinators.v +++ b/theories/Program/Combinators.v @@ -22,15 +22,13 @@ Open Scope program_scope. Lemma compose_id_left : forall A B (f : A -> B), id ∘ f = f. Proof. intros. - unfold id, compose. - symmetry. apply eta_expansion. + reflexivity. Qed. Lemma compose_id_right : forall A B (f : A -> B), f ∘ id = f. Proof. intros. - unfold id, compose. - symmetry ; apply eta_expansion. + reflexivity. Qed. Lemma compose_assoc : forall A B C D (f : A -> B) (g : B -> C) (h : C -> D), @@ -47,9 +45,7 @@ Hint Rewrite <- @compose_assoc : core. Lemma flip_flip : forall A B C, @flip A B C ∘ flip = id. Proof. - unfold flip, compose. intros. - extensionality x ; extensionality y ; extensionality z. reflexivity. Qed. @@ -57,9 +53,7 @@ Qed. Lemma prod_uncurry_curry : forall A B C, @prod_uncurry A B C ∘ prod_curry = id. Proof. - simpl ; intros. - unfold prod_uncurry, prod_curry, compose. - extensionality x ; extensionality y ; extensionality z. + intros. reflexivity. Qed. |