fact: Fixpoint choice_type_test (u v : choice_type) : bool := match u, v with | chNat , chNat => true | chUnit , chUnit => true | chBool , chBool => true | chProd a b , chProd a' b' => choice_type_test a a' && choice_type_test b b' | chMap a b , chMap a' b' => choice_type_test a a' && choice_type_test b b' | chOption a, chOption a' => choice_type_test a a' | chFin n, chFin n' => n == n' | _ , _ => false end.
imports: Coq(Utf8 Lia) Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples GenericRulesSimple) mathcomp(ssrnat ssreflect ssrfun ssrbool ssrnum eqtype choice reals distr realsum seq all_algebra fintype) Crypt(Prelude Axioms) extructures(ord fset fmap) Mon(SPropBase) Equations(Equations)