mirror of https://github.com/nmvdw/HITs-Examples
Add the Pauli id law example
This commit is contained in:
parent
8ce4cb760a
commit
4c7a2ecd1b
|
@ -241,4 +241,13 @@ Section pauli.
|
||||||
compute.
|
compute.
|
||||||
apply tt.
|
apply tt.
|
||||||
Defined.
|
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.
|
End pauli.
|
||||||
|
|
Loading…
Reference in New Issue