Search for blocks/addresses/...
Proofgold Proof
pf
Let x0 of type
ι
be given.
Assume H0:
CRing_with_id
x0
.
Apply H0 with
explicit_CRing_with_id
(
field0
x0
)
(
field3
x0
)
(
field4
x0
)
(
field1b
x0
)
(
field2b
x0
)
.
Assume H1:
struct_b_b_e_e
x0
.
Apply CRing_with_id_eta with
x0
,
λ x1 x2 .
unpack_b_b_e_e_o
x2
(
λ x3 .
λ x4 x5 :
ι →
ι → ι
.
λ x6 x7 .
explicit_CRing_with_id
x3
x6
x7
x4
x5
)
⟶
explicit_CRing_with_id
(
field0
x0
)
(
field3
x0
)
(
field4
x0
)
(
field1b
x0
)
(
field2b
x0
)
leaving 2 subgoals.
The subproof is completed by applying H0.
Apply CRing_with_id_unpack_eq with
field0
x0
,
field1b
x0
,
field2b
x0
,
field3
x0
,
field4
x0
,
λ x1 x2 : ο .
x2
⟶
explicit_CRing_with_id
(
field0
x0
)
(
field3
x0
)
(
field4
x0
)
(
field1b
x0
)
(
field2b
x0
)
.
Assume H2:
explicit_CRing_with_id
(
field0
x0
)
(
field3
x0
)
(
field4
x0
)
(
field1b
x0
)
(
field2b
x0
)
.
The subproof is completed by applying H2.
■