наверное это можно считать решением, хоть это не пруф вовсе
а то я чет хз как доказывать такие вещи, и уж тем более на бумаге
описывать категории что ли
кстати, тут необязательно делать индуктивный тип, можно просто:
Definition iso (A B : Type) : Type := (A \to B) * (B \to A).