Using `only printing` and fixing coercion in notations

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]