From 9c693eedb8e7e11aeaedbd3ce79a9478b10be7c8 Mon Sep 17 00:00:00 2001
From: Cyril Cohen
Date: Tue, 24 Nov 2020 23:14:22 +0100
Subject: Using `only printing` and fixing coercion in notations

---
 mathcomp/test_suite/imset2_finset.v       | 6 ++++++
 mathcomp/test_suite/imset2_finset.v.out   | 3 +++
 mathcomp/test_suite/imset2_gproduct.v     | 7 +++++++
 mathcomp/test_suite/imset2_gproduct.v.out | 6 ++++++
 4 files changed, 22 insertions(+)
 create mode 100644 mathcomp/test_suite/imset2_finset.v
 create mode 100644 mathcomp/test_suite/imset2_finset.v.out
 create mode 100644 mathcomp/test_suite/imset2_gproduct.v
 create mode 100644 mathcomp/test_suite/imset2_gproduct.v.out

(limited to 'mathcomp/test_suite')

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]
-- 
cgit v1.2.3