feat(hott,library): add additional spacing hints

This commit is contained in:
Leonardo de Moura 2015-09-30 16:52:34 -07:00
parent c9af007994
commit ede23a3267
11 changed files with 70 additions and 74 deletions

View file

@ -56,14 +56,10 @@ rfl
theorem uncurry_curry (f : A × B → C) : uncurry (curry f) = f := theorem uncurry_curry (f : A × B → C) : uncurry (curry f) = f :=
funext (λ p, match p with (a, b) := rfl end) funext (λ p, match p with (a, b) := rfl end)
precedence `∘'`:60 infixr ` ∘ ` := compose
precedence `on`:1 infixr ` ∘' `:60 := dcompose
precedence `$`:1 infixl ` on `:1 := on_fun
infixr ` $ `:1 := app
infixr ∘ := compose
infixr ∘' := dcompose
infixl on := on_fun
infixr $ := app
notation f ` -[` op `]- ` g := combine f op g notation f ` -[` op `]- ` g := combine f op g
lemma left_id (f : A → B) : id ∘ f = f := rfl lemma left_id (f : A → B) : id ∘ f = f := rfl