Added decidable quantification

FiniteSets/misc/dec_fset.v

@@ -116,4 +116,18 @@ Section quantifiers.
   Proof.
     hinduction ; try (apply _) ; try (intros ; apply path_ishprop).
   Defined.
-End quantifiers.
+End quantifiers.
+
+Section simple_example.
+  Context `{Univalence}.
+
+  Definition P : nat -> hProp := fun n => BuildhProp(n = n).
+  Definition X : FSet nat := {|0|} ∪ {|1|}.
+
+  Definition simple_example : all P X.
+  Proof.
+    refine (from_squash (all P X)).
+    compute.
+    apply tt.
+  Defined.
+End simple_example.