aboutsummaryrefslogtreecommitdiff
path: root/mathcomp/ssreflect
diff options
context:
space:
mode:
authorKazuhiko Sakaguchi2020-09-28 18:49:09 +0900
committerGitHub2020-09-28 18:49:09 +0900
commitc9e5a9621c9a2143e1170ef1553fa7d9135b4130 (patch)
tree6e73fc6f8a73dc38fdf616a98cb08e0027180d2d /mathcomp/ssreflect
parenta97b433c2d81c702fe690101a6e4e7afb4a3c28d (diff)
parente41cb4f8b30181d3b144b57fc46cb89407f632d8 (diff)
Merge pull request #484 from CohenCyril/ord1
Putting `ord1` in `fintype.v`
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.