diff options
Diffstat (limited to 'mathcomp/test_suite')
| -rw-r--r-- | mathcomp/test_suite/imset2_finset.v | 6 | ||||
| -rw-r--r-- | mathcomp/test_suite/imset2_finset.v.out | 3 | ||||
| -rw-r--r-- | mathcomp/test_suite/imset2_gproduct.v | 7 | ||||
| -rw-r--r-- | mathcomp/test_suite/imset2_gproduct.v.out | 6 |
4 files changed, 22 insertions, 0 deletions
diff --git a/mathcomp/test_suite/imset2_finset.v b/mathcomp/test_suite/imset2_finset.v new file mode 100644 index 0000000..c27a611 --- /dev/null +++ b/mathcomp/test_suite/imset2_finset.v @@ -0,0 +1,6 @@ +From mathcomp Require Import all_ssreflect. +Set Implicit Arguments. +Unset Strict Implicit. +Unset Printing Implicit Defensive. + +Check @imset2_pair. diff --git a/mathcomp/test_suite/imset2_finset.v.out b/mathcomp/test_suite/imset2_finset.v.out new file mode 100644 index 0000000..f58fd8a --- /dev/null +++ b/mathcomp/test_suite/imset2_finset.v.out @@ -0,0 +1,3 @@ +imset2_pair + : forall (aT aT2 : finType) (A : {set aT}) (B : {set aT2}), + [set (x, y) | x in A, y in B] = setX A B diff --git a/mathcomp/test_suite/imset2_gproduct.v b/mathcomp/test_suite/imset2_gproduct.v new file mode 100644 index 0000000..7b80a8d --- /dev/null +++ b/mathcomp/test_suite/imset2_gproduct.v @@ -0,0 +1,7 @@ +From mathcomp Require Import all_ssreflect all_fingroup. +Set Implicit Arguments. +Unset Strict Implicit. +Unset Printing Implicit Defensive. +Import GroupScope. +Open Scope group_scope. +Check @ker_sdprodm. diff --git a/mathcomp/test_suite/imset2_gproduct.v.out b/mathcomp/test_suite/imset2_gproduct.v.out new file mode 100644 index 0000000..673c27c --- /dev/null +++ b/mathcomp/test_suite/imset2_gproduct.v.out @@ -0,0 +1,6 @@ +ker_sdprodm + : forall (gT rT : finGroupType) (H K G : {group gT}) + (fH : {morphism H >-> rT}) (fK : {morphism K >-> rT}) + (eqHK_G : H ><| K = G) (actf : {in H & K, morph_act 'J 'J fH fK}), + 'ker (sdprodm eqHK_G actf) = + [set a * b^-1 | a in H, b in K & fH a == fK b] |