1
0
mirror of https://github.com/nmvdw/HITs-Examples synced 2025-11-03 15:13:51 +01:00

Added bounded quantification for lists

This commit is contained in:
Niels van der Weide
2017-10-09 23:41:29 +02:00
parent 97002d119b
commit d0f743432c
4 changed files with 133 additions and 10 deletions

View File

@@ -223,9 +223,9 @@ Section pauli.
destruct x ; rewrite ?union_isIn; solve_in_list.
Defined.
Definition comm x y : hProp := BuildhProp(Pauli_mult x y = Pauli_mult y x).
Definition pauli_comm x y : hProp := BuildhProp(Pauli_mult x y = Pauli_mult y x).
Theorem Pauli_mult_comm : all (fun x => all (fun y => comm x y) Pauli_list) Pauli_list.
Theorem Pauli_mult_comm : all (fun x => all (fun y => pauli_comm x y) Pauli_list) Pauli_list.
Proof.
refine (from_squash (all _ _)).
compute.