Skip to content

Commit

Permalink
Minor
Browse files Browse the repository at this point in the history
  • Loading branch information
ajreynol committed Jan 24, 2025
1 parent e1f7d4f commit b15a0ea
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion proofs/eo/cpc/programs/Utils.eo
Original file line number Diff line number Diff line change
Expand Up @@ -91,7 +91,7 @@
; - x S: The term to inspect.
; return: the head of x, where x is expected to be a function application.
(define $head ((S Type :implicit) (x S))
(eo::match ((T Type) (f (-> T T T)) (x1 T) (x2 T :list))
(eo::match ((T Type) (f (-> T U U)) (x1 T) (x2 U :list))
x
(((f x1 x2) x1)))
)
Expand Down

0 comments on commit b15a0ea

Please sign in to comment.