fact: Definition test₃ : package fset0 [interface #val #[0] : 'nat → 'bool ; #val #[1] : 'bool → 'unit ] [interface #val #[2] : 'nat → 'nat ; #val #[3] : 'bool × 'bool → 'bool ] := [package #def #[2] (n : 'nat) : 'nat { #import {sig #[0] : 'nat → 'bool } as f ;; #import {sig #[1] : 'bool → 'unit } as g ;; b ← f n ;; if b then g false ;; ret 0 else ret n } ; #def #[3] ('(b₀,b₁) : 'bool × 'bool) : 'bool { ret b₀ } ].
imports: Coq(Utf8) mathcomp(ssrnat ssreflect ssrfun ssrbool ssrnum eqtype choice seq) extructures(ord fset fmap) Crypt(RulesStateProb Package Prelude) Equations(Equations)