fact: Definition cardinal (S : Ensemble W) : Comp W := (n <- { n : nat | cardinal _ S n }; ret (from_nat n)).
imports: Coq.Sets.Ensembles Fiat.ADT.Core Fiat.Common.Ensembles Fiat.ADT.ComputationalADT Fiat.ADTNotation Fiat.FiniteSetADTs.BedrockWord