fact: Definition unfold_projection {A} (y : A) : t A := let x := reduce (RedOneStep [rl:RedDelta]) y in let x := reduce (RedWhd [rl:RedBeta;RedMatch]) x in ret x.
imports: Strings.String NArith.BinNat Mtac2(Logic Datatypes Logic List Utils MTele Pattern Specif)