fix some errors

algebra/exact_couple.hlean

@@ -141,9 +141,6 @@ definition derived_couple_A : AbGroup :=
 definition derived_couple_B : AbGroup :=
   homology (differential EC) (differential_is_differential EC)
 
-print homology
-
-
 definition derived_couple_i : derived_couple_A →g derived_couple_A :=
   (image_lift (exact_couple.i EC)) ∘g (image_incl (exact_couple.i EC))
 
@@ -207,9 +204,6 @@ definition left_square_derived_ses : j_factor ∘g (ab_kernel_incl i) ~ (SES.f (
     exact (ap j_factor (subgroup_iso_exact_at_A_triangle x)) ⬝ (left_square_derived_ses_aux (subgroup_iso_exact_at_A x)),
   end
 
-print quotient_extend_unique_SES
-check quotient_extend_unique_SES (SES_of_exact_couple_at_i) (SES_of_differential d H) (subgroup_homom_ker_to_im) (j_factor) (left_square_derived_ses)
-
 definition derived_couple_j_unique :
     is_contr (Σ hC, group_fun (hC ∘g SES.g SES_of_exact_couple_at_i) ~ group_fun
        (SES.g (SES_of_differential d H) ∘g j_factor)) :=
@@ -273,8 +267,6 @@ definition derived_couple_k : derived_couple_B →g derived_couple_A :=
      exact pr1 (center' (derived_couple_k_unique)),
    end
 
-print conter_internal.center
-
 definition derived_couple_k_htpy : group_fun (derived_couple_k ∘g SES.g (SES_of_differential d H)) ~ group_fun
        (SES.g (SES_im_i_trivial) ∘g k_restrict) :=
    begin

homotopy/spectrum.hlean

@@ -155,7 +155,7 @@ namespace spectrum
   definition sid [constructor] [refl] {N : succ_str} (E : gen_prespectrum N) : E →ₛ E :=
   smap.mk (λ n, pid (E n)) (λ n, psquare_of_phtpy_bot (ap1_pid) (psquare_of_pid_top_bot (phomotopy.rfl)))
 
-  print sid
+  --print sid
  --   smap.mk (λn, pid (E n))
  --   (λn, calc glue E n ∘* pid (E n) ~* glue E n                   : pcompose_pid
  --                             ...   ~* pid (Ω(E (S n))) ∘* glue E n : pid_pcompose
@@ -220,7 +220,7 @@ namespace spectrum
   shomotopy.mk
     (λn, (shomotopy.to_phomotopy q n) ⬝* (shomotopy.to_phomotopy p n))
     begin
-      intro n,
+      intro n, unfold [ptube_v],
       rewrite (pwhisker_left_trans _),
       rewrite ap1_phomotopy_trans,
       rewrite (pwhisker_right_trans _),
@@ -229,7 +229,7 @@ namespace spectrum
 
   definition shomotopy_inverse {N : succ_str} {E F : gen_prespectrum N} {f g : E →ₛ F} (p : f ~ₛ g) : g ~ₛ f :=
   shomotopy.mk (λn, (shomotopy.to_phomotopy p n)⁻¹*) begin
-    intro n,
+    intro n, unfold [ptube_v],
     rewrite (pwhisker_left_symm _ _),
     rewrite [-ap1_phomotopy_symm],
     rewrite (pwhisker_right_symm _ _),