-include "types.ma".
+include "hott/types.ma".
(* * * Basic definitions of homotopy type theory, particularly the groupoid structure of identity types. *)
| forall _, _ => fail 1 x "is not atomic"
| _ => idtac
end.
-*)
\ No newline at end of file
+*)
(* *)
(**************************************************************************)
-include "notations.ma".
+include "hott/notations.ma".
universe constraint Type[0] < Type[1].
universe constraint Type[1] < Type[2].
(* *)
(**************************************************************************)
-include "pts.ma".
+include "hott/pts.ma".
record Exists (A: Type[0]) (P: A → Type[0]) : Type[0] ≝ {
pr1: A;