n (A : pType) (code : pFam A) `{forall a, IsTrunc n (code a)} (decode : forall x, code x -> Tr n (point A = x)) (s : forall (c : code (point A)), Trunc_rec (fun (p : loops A) => p # (dpoint code)) (decode _ c) = c) (r : decode _ (dpoint code) = tr idpath) : pTr n (loops A) <~> code (point A) := encode_decode_trunc _ _ _ code (dpoint code) decode s r _.
Require Import Basics Pointed. Require Import Truncations.Core.