fact: Definition test₁ : package [fset (chNat; 0)] [interface #val #[0] : 'nat → 'nat] [interface #val #[1] : 'nat → 'nat ; #val #[2] : 'unit → 'unit ] := [package #def #[1] (x : 'nat) : 'nat { getr ('nat; 0) (λ n : nat, opr (0, ('nat, 'nat)) n (λ m, putr ('nat; 0) m (ret m) ) ) } ; #def #[2] (_ : 'unit) : 'unit { putr ('nat; 0) 0 (ret Datatypes.tt) } ].
imports: Coq(Utf8) mathcomp(ssrnat ssreflect ssrfun ssrbool ssrnum eqtype choice seq) extructures(ord fset fmap) Crypt(RulesStateProb Package Prelude) Equations(Equations)