Add the Pauli id law example

2017-12-15 13:41:41 +01:00 · 2017-12-15 13:41:41 +01:00 · 4c7a2ecd1b
parent 8ce4cb760a
commit 4c7a2ecd1b
1 changed files with 9 additions and 0 deletions
--- a/FiniteSets/misc/dec_fset.v
+++ b/FiniteSets/misc/dec_fset.v
@ -241,4 +241,13 @@ Section pauli.
    compute.
    apply tt.
  Defined.
+
+  Definition pauli_id x y : hProp := BuildhProp(Pauli_mult x y = y).
+
+  Theorem Pauli_mult_id : exist (fun x => all (fun y => pauli_id x y) Pauli_list) Pauli_list.
+  Proof.
+    refine (from_squash (exist _ _)).
+    compute.
+    apply tt.
+  Defined.
 End pauli.