(P : amal_type -> Type) `{forall x, IsHProp (P x)} (e : forall w, P (amal_eta w)) : forall x, P x. Proof. srapply amal_type_ind. 1: exact e. all: intros; apply path_ishprop. Defined.
Require Import Basics Types. Require Import Cubical.DPath. Require Import Spaces.List.Core Spaces.List.Theory. Require Import Colimits.Pushout. Require Import Truncations.Core Truncations.SeparatedTrunc. Require Import Algebra.Groups.Group. Require Import WildCat.