From 251ab0d53d2da1e90eaeec46e177359630f50c20 Mon Sep 17 00:00:00 2001
From: Robbert Krebbers <mail@robbertkrebbers.nl>
Date: Wed, 25 May 2016 16:02:42 +0200
Subject: [PATCH] =?UTF-8?q?Turn=20some=20->=20arrows=20into=20=E2=86=92.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 algebra/cmra.v | 2 +-
 algebra/cofe.v | 2 +-
 prelude/base.v | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/algebra/cmra.v b/algebra/cmra.v
index 27afdb0be..e2a4d8791 100644
--- a/algebra/cmra.v
+++ b/algebra/cmra.v
@@ -443,7 +443,7 @@ End cmra_monotone.
 
 (** Functors *)
 Structure rFunctor := RFunctor {
-  rFunctor_car : cofeT → cofeT -> cmraT;
+  rFunctor_car : cofeT → cofeT → cmraT;
   rFunctor_map {A1 A2 B1 B2} :
     ((A2 -n> A1) * (B1 -n> B2)) → rFunctor_car A1 B1 -n> rFunctor_car A2 B2;
   rFunctor_ne A1 A2 B1 B2 n :
diff --git a/algebra/cofe.v b/algebra/cofe.v
index 8a1578560..fe969f567 100644
--- a/algebra/cofe.v
+++ b/algebra/cofe.v
@@ -340,7 +340,7 @@ Proof. intros f f' Hf g g' Hg [??]; split; [apply Hf|apply Hg]. Qed.
 
 (** Functors *)
 Structure cFunctor := CFunctor {
-  cFunctor_car : cofeT → cofeT -> cofeT;
+  cFunctor_car : cofeT → cofeT → cofeT;
   cFunctor_map {A1 A2 B1 B2} :
     ((A2 -n> A1) * (B1 -n> B2)) → cFunctor_car A1 B1 -n> cFunctor_car A2 B2;
   cFunctor_ne {A1 A2 B1 B2} n :
diff --git a/prelude/base.v b/prelude/base.v
index ab142229f..7089551e6 100644
--- a/prelude/base.v
+++ b/prelude/base.v
@@ -91,8 +91,8 @@ Notation "(, y )" := (λ x, (x,y)) (only parsing) : C_scope.
 Notation "p .1" := (fst p) (at level 10, format "p .1").
 Notation "p .2" := (snd p) (at level 10, format "p .2").
 
-Definition fun_map {A A' B B'} (f : A' -> A) (g : B -> B')
-  (h : A -> B) : A' -> B' := g ∘ h ∘ f.
+Definition fun_map {A A' B B'} (f : A' → A) (g : B → B')
+  (h : A → B) : A' → B' := g ∘ h ∘ f.
 Definition prod_map {A A' B B'} (f : A → A') (g : B → B')
   (p : A * B) : A' * B' := (f (p.1), g (p.2)).
 Arguments prod_map {_ _ _ _} _ _ !_ /.
-- 
GitLab