diff options
| author | Cyril Cohen | 2020-11-24 23:14:22 +0100 |
|---|---|---|
| committer | Cyril Cohen | 2020-11-25 19:26:22 +0100 |
| commit | 9c693eedb8e7e11aeaedbd3ce79a9478b10be7c8 (patch) | |
| tree | 79002ee09b1489f1f29d67fc18d58991c7ec13aa /mathcomp/algebra | |
| parent | 4153b5eabf27cb36dfb6ce03a0b52fcbfda7145c (diff) | |
Using `only printing` and fixing coercion in notations
Diffstat (limited to 'mathcomp/algebra')
| -rw-r--r-- | mathcomp/algebra/ssrint.v | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/mathcomp/algebra/ssrint.v b/mathcomp/algebra/ssrint.v index e234504..9ea0ce4 100644 --- a/mathcomp/algebra/ssrint.v +++ b/mathcomp/algebra/ssrint.v @@ -67,10 +67,13 @@ Variant int : Set := Posz of nat | Negz of nat. Notation "n %:Z" := (Posz n) (only parsing) : int_scope. Notation "n %:Z" := (Posz n) (only parsing) : ring_scope. -Notation "n = m :> 'in' 't'" := (Posz n = Posz m) : ring_scope. -Notation "n == m :> 'in' 't'" := (Posz n == Posz m) : ring_scope. -Notation "n != m :> 'in' 't'" := (Posz n != Posz m) : ring_scope. -Notation "n <> m :> 'in' 't'" := (Posz n <> Posz m) : ring_scope. +Notation "n = m :> 'in' 't'" := (Posz n = Posz m) (only printing) : ring_scope. +Notation "n == m :> 'in' 't'" := (Posz n == Posz m) + (only printing) : ring_scope. +Notation "n != m :> 'in' 't'" := (Posz n != Posz m) + (only printing) : ring_scope. +Notation "n <> m :> 'in' 't'" := (Posz n <> Posz m) + (only printing) : ring_scope. Definition natsum_of_int (m : int) : nat + nat := match m with Posz p => inl _ p | Negz n => inr _ n end. @@ -452,8 +455,7 @@ Local Coercion Posz : nat >-> int. Implicit Types m n p : nat. Implicit Types x y z : int. -Lemma lez_nat m n : (m <= n :> int) = (m <= n)%N. -Proof. by []. Qed. +Lemma lez_nat m n : (m <= n :> int) = (m <= n)%N. Proof. by []. Qed. Lemma ltz_nat m n : (m < n :> int) = (m < n)%N. Proof. by rewrite ltnNge ltNge lez_nat. Qed. |