fact: Definition encode_decode_trunc n (A : Type) (a0 : A) (code : A -> Type) `{forall a, IsTrunc n (code a)} (c0 : code a0) (decode : forall x, code x -> Tr n (a0 = x)) (s : forall (c : code a0), Trunc_rec (fun p => p # c0) (decode _ c) = c) (r : decode _ c0 = tr idpath) (a1 : A) : Tr n (a0 = a1) <~> code a1.
imports: Basics Pointed Truncations.Core