f (X : Type) : Type := | loc : X -> X | lrec : forall i (g : S i -> X), T i -> X | lrec_beta : forall i (g : S i -> X) (s : T i), lrec i g (f i s) = g s | lindpaths : forall i (h k : T i -> X) (p : h o f i == k o f i) (t : T i), h t = k t | lindpaths_beta : forall i (h k : T i -> X) (p : h o f i == k o f i) (s : S i), lindpaths i h k p (f i s) = p s.
Require Import HoTT.Basics HoTT.Types. Require Import Extensions. Require Import ReflectiveSubuniverse Accessible. Import IsLocal_Internal.