Skip to content
Snippets Groups Projects
Commit db8b426e authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Fix comment that is messed up.

parent dc158f6f
No related branches found
No related tags found
1 merge request!594split up list.v into smaller files
Pipeline #119733 passed
...@@ -65,9 +65,9 @@ Global Hint Extern 0 (_ ⊆+ _) => reflexivity : core. ...@@ -65,9 +65,9 @@ Global Hint Extern 0 (_ ⊆+ _) => reflexivity : core.
(** * Basic tactics on lists *) (** * Basic tactics on lists *)
(** These are used already in this file so we cannot have them in [list_tactics]. *) (** These are used already in this file so we cannot have them in [list_tactics]. *)
(** The tactic [discriminate_list] discharges a goal if it submseteq (** The tactic [discriminate_list] discharges a goal if there is a hypothesis
a list equality involving [(::)] and [(++)] of two lists that have a different [l1 = l2] where [l1] and [l2] have different lengths. The tactic is guaranteed
length as one of its hypotheses. *) to work if [l1] and [l2] contain solely [ [] ], [(::)] and [(++)]. *)
Tactic Notation "discriminate_list" hyp(H) := Tactic Notation "discriminate_list" hyp(H) :=
apply (f_equal length) in H; apply (f_equal length) in H;
repeat (csimpl in H || rewrite length_app in H); exfalso; lia. repeat (csimpl in H || rewrite length_app in H); exfalso; lia.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment