diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2018-03-04 17:24:59 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2018-03-04 17:24:59 +0100 |
| commit | 78551857a41a57607ecfb3fd010e0a9755f47cea (patch) | |
| tree | 431275a5729dddb5ca4fa2d9199b8640aa4f45af /plugins/ssr | |
| parent | dffc6a20eb1a0636904164e00b5963ed96f774c4 (diff) | |
| parent | 2f60c1bab0ce391aa60cc6c387b9d36a1ae70905 (diff) | |
Merge PR #6791: Removing compatibility support for versions older than 8.5.
Diffstat (limited to 'plugins/ssr')
| -rw-r--r-- | plugins/ssr/ssrfun.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/plugins/ssr/ssrfun.v b/plugins/ssr/ssrfun.v index 1f3a9c124..f77f7c4fa 100644 --- a/plugins/ssr/ssrfun.v +++ b/plugins/ssr/ssrfun.v @@ -443,14 +443,14 @@ Section Tag. Variables (I : Type) (i : I) (T_ U_ : I -> Type). -Definition tag := projS1. -Definition tagged : forall w, T_(tag w) := @projS2 I [eta T_]. -Definition Tagged x := @existS I [eta T_] i x. +Definition tag := projT1. +Definition tagged : forall w, T_(tag w) := @projT2 I [eta T_]. +Definition Tagged x := @existT I [eta T_] i x. Definition tag2 (w : @sigT2 I T_ U_) := let: existT2 _ _ i _ _ := w in i. Definition tagged2 w : T_(tag2 w) := let: existT2 _ _ _ x _ := w in x. Definition tagged2' w : U_(tag2 w) := let: existT2 _ _ _ _ y := w in y. -Definition Tagged2 x y := @existS2 I [eta T_] [eta U_] i x y. +Definition Tagged2 x y := @existT2 I [eta T_] [eta U_] i x y. End Tag. |