feat(library/general_notation): reserve unary minus
This commit is contained in:
parent
58525905d0
commit
e7a7458922
2 changed files with 2 additions and 2 deletions
|
@ -256,8 +256,7 @@ calc
|
||||||
|
|
||||||
definition neg : ℤ → ℤ := quotient_map quotient flip
|
definition neg : ℤ → ℤ := quotient_map quotient flip
|
||||||
|
|
||||||
-- TODO: is this good? Note: replacing 100 by max makes it bind stronger than application.
|
notation `-` x := neg x
|
||||||
notation `-` x:100 := neg x
|
|
||||||
|
|
||||||
theorem neg_comp (n m : ℕ) : -(psub (pair n m)) = psub (pair m n) :=
|
theorem neg_comp (n m : ℕ) : -(psub (pair n m)) = psub (pair m n) :=
|
||||||
have H : ∀a, -(psub a) = psub (flip a),
|
have H : ∀a, -(psub a) = psub (flip a),
|
||||||
|
|
|
@ -49,6 +49,7 @@ reserve infixl `-`:65
|
||||||
reserve infixl `*`:70
|
reserve infixl `*`:70
|
||||||
reserve infixl `div`:70
|
reserve infixl `div`:70
|
||||||
reserve infixl `mod`:70
|
reserve infixl `mod`:70
|
||||||
|
reserve prefix `-`:100
|
||||||
|
|
||||||
reserve infix `<=`:50
|
reserve infix `<=`:50
|
||||||
reserve infix `≤`:50
|
reserve infix `≤`:50
|
||||||
|
|
Loading…
Reference in a new issue