aboutsummaryrefslogtreecommitdiff
path: root/mathcomp/ssreflect
diff options
context:
space:
mode:
authorCyril Cohen2020-04-10 11:45:05 +0200
committerCyril Cohen2020-09-27 15:09:15 +0200
commit4241f07301e8d84186ae2c80d5c32118a90f6847 (patch)
tree2d0ee7af9c7ef40c67e57b243dc1f84715635a2b /mathcomp/ssreflect
parent6d8f919bbc6a103378005d282fb6018bb63c5026 (diff)
Putting ord1 in fintype
ord1 is in zmodp, but it does not really require the zmodType structure of 'I_n to be stated and proven if we state it with ord0. We still keep the variant in zmodp with 0 instead of ord0 (for readability purposes).
Diffstat (limited to 'mathcomp/ssreflect')
-rw-r--r--mathcomp/ssreflect/fintype.v3
1 files changed, 3 insertions, 0 deletions
diff --git a/mathcomp/ssreflect/fintype.v b/mathcomp/ssreflect/fintype.v
index 3472a1d..f4f34a4 100644
--- a/mathcomp/ssreflect/fintype.v
+++ b/mathcomp/ssreflect/fintype.v
@@ -2220,6 +2220,9 @@ Arguments sub_ord {n'}.
Arguments sub_ordK {n'}.
Arguments inord_val {n'}.
+Lemma ord1 : all_equal_to (ord0 : 'I_1).
+Proof. by case=> [[] // ?]; apply: val_inj. Qed.
+
(* Product of two fintypes which is a fintype *)
Section ProdFinType.