diff options
| author | Enrico Tassi | 2018-09-03 15:02:21 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2018-09-04 15:10:48 +0200 |
| commit | 360a8819a08c4cf005d96f0ac6bff65903dccfd4 (patch) | |
| tree | bb48bc66c8ff0e65be1426c3660c923034480e9b /mathcomp/ssreflect | |
| parent | 1dcea6744ecc79546905d41a23801b1fc7b60c5a (diff) | |
[warnings] -w "+compatibility-notation" clean
Diffstat (limited to 'mathcomp/ssreflect')
| -rw-r--r-- | mathcomp/ssreflect/eqtype.v | 6 | ||||
| -rw-r--r-- | mathcomp/ssreflect/ssrnat.v | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/mathcomp/ssreflect/eqtype.v b/mathcomp/ssreflect/eqtype.v index 01ce7a9..7721f0e 100644 --- a/mathcomp/ssreflect/eqtype.v +++ b/mathcomp/ssreflect/eqtype.v @@ -784,9 +784,9 @@ Canonical option_eqType := Eval hnf in EqType (option T) option_eqMixin. End OptionEqType. -Definition tag := projS1. -Definition tagged I T_ : forall u, T_(tag u) := @projS2 I [eta T_]. -Definition Tagged I i T_ x := @existS I [eta T_] i x. +Definition tag := projT1. +Definition tagged I T_ : forall u, T_(tag u) := @projT2 I [eta T_]. +Definition Tagged I i T_ x := @existT I [eta T_] i x. Arguments Tagged [I i]. Prenex Implicits tag tagged Tagged. diff --git a/mathcomp/ssreflect/ssrnat.v b/mathcomp/ssreflect/ssrnat.v index b7ff16c..f7cd700 100644 --- a/mathcomp/ssreflect/ssrnat.v +++ b/mathcomp/ssreflect/ssrnat.v @@ -1445,7 +1445,7 @@ End NatTrec. Notation natTrecE := NatTrec.trecE. -Lemma eq_binP : Equality.axiom Ndec.Neqb. +Lemma eq_binP : Equality.axiom N.eqb. Proof. move=> p q; apply: (iffP idP) => [|<-]; last by case: p => //; elim. by case: q; case: p => //; elim=> [p IHp|p IHp|] [q|q|] //=; case/IHp=> ->. @@ -1499,7 +1499,7 @@ case=> //=; elim=> //= p; case: (nat_of_pos p) => //= n [<-]. by rewrite natTrecE addnS /= addnS {2}addnn; elim: {1 3}n. Qed. -Lemma nat_of_succ_gt0 p : Psucc p = p.+1 :> nat. +Lemma nat_of_succ_gt0 p : Pos.succ p = p.+1 :> nat. Proof. by elim: p => //= p ->; rewrite !natTrecE. Qed. Lemma nat_of_addn_gt0 p q : (p + q)%positive = p + q :> nat. |