fact: Fixpoint outOfFree0 (A:choiceType) (tree : Free_sigma A) {struct tree} : T A.
imports: Relational(OrderEnrichedCategory OrderEnrichedRelativeMonadExamples) Mon(SPropBase) mathcomp(all_ssreflect) Crypt(FreeProbProg ChoiceAsOrd)